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PREFACE 



n 

My first formal introduction to the workings of a computer was 
O in 1966. At that time our wise mentor told us that if we learned 
the lowest level operations of a computer, we would be set for 
O life. As a result of this philosophy, we were taught how to do 
_ everything from counting in binary and conversion to octal to the 
essentials of FORTRAN. The problem was that we never really 
sat down and programmed at a terminal. So while we had a terrific 
theoretical understanding of the workings of computers, we did 



^ not learn very much about actual programming. 

^ Since that time, both computers and the people who use them 
have changed. To learn how to use a computer, it is unnecessary 
to learn everything about how they work or the theory behind 
their operation. It is true that by having a detailed understanding 

O of the theory and operation of computers one can do more with 
them, but it is something that does not have to be done at the 

O outset. One can learn how to program, and at a later date learn 
the more technical details of a computer's operation. After all, 

^ most people learn to drive without laiowing the intricacies of the 

^ internal combustion engine of their automobile. 

^ Another major change in computers has been in the transition 
from "mainframes" and "terminals" to small individual com- 

^ puters. Your VIC-20 is not merely a terminal. It is a whole com- 
puter. Therefore, you are not dependent on using a piece of a 

^ larger computer, but you get the whole thing all to yourself. As 
a result, you are not subject to a set of policies and regulations 

1^ for getting "on line" or paying for the time you use. You make 
your own policies and are the captain of your own computer ship. 
Therefore, it is unnecessary to spend a lot of time discussing the 
organizational aspects of accessing the CPU (Central Processing 

O Unit), time-sharing, and so forth. We will go right to the heart of 
the matter, programming YOUR computer. 

o 

The purpose of this book is primarily to teach you how to work 
your computer and program in the language called BASIC. It is 
ELEMENTARY. So, while you will learn a good deal, dont expect 
to learn everything about working with your VIC-20. Once you 



^ are finished with this book, you will realize how much more you 
O 



can do with your computer, and the more you learn, the more you W 
will find to learn. However, by following the instructions and 

keying in the «camples, you wiO. learn how to write programs ^ 

with most of the instructions m the version of BASIC on your - 

VIC-20. ^ 

As a final note, don't expect to learn everything right amy. Be ^ 
patient with yourself and your computer, and you will be amazed ^ 
at how much you will learn. If you do not understand a command 
or a procedure, you can always come back to it later. Try different 
things and play with your programs. Think up different projects 
you would like your computer to do and then try writing a pro- (_j 
gram to do what you want. By all means, though, do not be afraid 
to make an attempt. With each step or attempt you will make 
some progress. While it may be slow at times, the accumulated 
knowledge will eventually lead to understanding. W 



o 



CHAPTER 1 

^ Introduction 

This book is intended to help you operate your new VIC-20 com- 
puter, get started programming and make life easier with your 
computer. It is not for professional programmers or more advanced 
applications. It is only the first step, and it is for BEGINNERS 
on the VIC-20 computer. Everything will be Irept on an introduc- 
tory level but, by the time you are finished, you should be able to 
write and use programs. 

n 
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To best use ELEMENTARY VIC-2(} it is suggested that you start 
at the beginning and work your way through step-by-step. I have 
tried to arrange the book so that each part and section logically 
follows the one preceding it. Skipping around might result in your 
not understanding some important aspect of the computer's oper- 
ation. The only exception to this rule is the last chapter where I 
have put a number of suggestions for programs you might want 
to buy in order to help you write programs (called UTILITY 
PROGRAMS). Also, there are descriptions of programs for doing 
other things such as business, word processing and so forth. When 
you're finished with this chapter, it would be a good idea to take 
a quick peek at some of the progiams described in the last chapter 
to see if any of them fit your needs while you're learning about 
your VIC-20. You don't have to purchase any of them but, depend- 
ing on your interests and needs, you will find some of them very 
useful. 



The first thing to learn about your computer is that it will not 
"bite" you. It requires a certain amount of care. There are ways 
you can destroy diskettes, tapes, and information but, by follow- 
ing a few simple rules, you should be all right. All of us have used 
sophisticated electronic equipment, such as our stereos, televi- 
sions, and video-tape recorders; there is a certain amount of care 
they require. Otherwise, there is no need to fear them. Likewise, 
your computer is electronic. If you pour water or other liquids on 
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^ the computer while the power is on, you're likely to damage it. 
^ Using reasonable care, go ahead and put it to use. Remember, it 

is virtually impossible to write a program which will harm the 
^ hardware (or electronic circuits) in your machine. At worst, one 

of your programs might erase the information on a tape or disk- 
^ ette. Throughout this book there will be tips about how to do 

things the right and wrong way but, for the most part, treat your 

computer as you would your microwave oven, garage door opener 

or radio — with care but without fear. 

n 

At this stage of the game it is unnecessary to learn a lot of com- 
O puter jargon, but some of this jargon is necessary to help you 
understand how your computer operates. As we go on, more new 
terms will be introduced but, for the most part, the text will be 
in plain English. Nevertheless, you should know the following 
just to get started. 



HARDWARE 



n 
n 

Hardware refers to the machine and all of its electromc parts. 
r) Basically, everything from the keyboard to the wires and little 

black chips in your computer is considered "hardware." You will 
O also hear the term, "firmware." This is another type of hardware 

on which programs are written. Called "proms" or "eproms," these 
O chips have information stored in them just as tapes and disks do. 

Firmware is either inside your computer or in cartridges or boards 

you plug into the back of your VIC-20. A biological analogy of 
^ hardware is the physical body, most importantly the brain, and 

firmware is a like "inherent" fiitelligence or "transplanted" 
^ intelligence. 

o 



SOFTWARE 



^ Software consists of the programs which tell the computer to do 
different things. Whatever goes into the computer's memory is 
software. It is analogous to the mind or ideas. Treating the hard- 
ware as the brain, any idea which goes into the hardware is the 

O software. Software is to computers as records are to stereos. 
Software operates either in Random Access Memory (RAM) or 

O Read Only Memory (ROM). (Firmware is hardware with "burned 
in" software.) 



n 
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RAM You may hear people talk about expanding their RAM. ^ 
This is the part of the computer's memory into which you can 
enter information in the form of data and programs. The more ^ 
memory you have, the larger the program and more data you can 
enter. Think of RAM as a warehouse. When you first turn on your 
computer, the warehouse is just about empty (it says it has 3583 
BYTES FREE); but as you run programs and enter information, 
the warehouse begins filling up. The larger the warehouse the 
more information you can store there; when it is full, you have to 
stop. VIC-20's come with 5K of RAM. The "K" for computerists 
refers to "kilobytes" or "thousands-of-bytes," but the actual num- 
ber is 1024 bytes. (The new disk storage systems are measured ^ 
in "megabytes" or "millions-of-bytes" - 102400 bytes to be pre- 
cise. The next time you're at a cocktail party, mention megabytes 
and you'll really impress everyone.) For now, all you need to loiow 
about "bytes" is that th^ are a measure of storage in computers. ^ 
The more bytes, the more room you have. Think of them in the 
same way you would "gallons," "inches" or "meters" - simply a ^ 
unit of measure. ^ 

ROM A second type of computer memory is ROM, meaning 
"Read Only Memory." This type of memory is "loclred" into your 
computer's chips. Your VIC-20's programming language, called 
BASIC, is stored in ROM. The difference between ROM and RAM 
is that whenever you turn off your computer, all information in 
RAM evaporates, but ROM keeps all of its information. Don't 
worry, though, you can save whatever is in RAM on diskettes 
and tape and get it back. We'll see how that is done later. 

U 

Now that you know a few terms and enough not fear your com- 
puter, let's get it cranked up and running. If you already have ^ 
your computer all hooked up and working properly, you can skip 
the next section and go directly to the 'Tower On!" section of this ^ 
chapter. ^ 
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^ Hooking Up Your VlC-20 and Peripheral 
O Equipment 

n 

^ The LAST thing you should do after reading this section is plug 
in your VIC-20 and turn it on. Everything else should be done 
first. If you bought your computer without a tape recorder or a 
disk drive, it will work fine, but you will need a Commodore Cas- 

O sette Unit or a disk drive to save information. If you have just 
the computer, skip to the section on hooking up your TV set to 

O the computer. 

O Tape Recorder 

If you are using a tape recorder, either with or without a disk 
operating system, hooking it up is quite simple. On your Com- 
modore C2N Cassette or Datassette Unit is a cable to connect it 
to the computer. Take the cable and insert it into the slot in the 
back of your computer that is the smaller of the two on the left 
side. (Right behind the "4," "5" and "6" keys.) Make sure that it 

O is lined up correctly with the "teeth" in the slot, and do not use 
excessive force when connecting it. That is all there is to it! Your 

^ cassette recorder is now ready to operate. Use ordinary cassette 

^ tapes — usually 5 minute tapes are the best. 

n 
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Disk Drive ^ 

With the VIC-20 you can use either the VIC-1541 or VIC-1540 ^ 
disk drive. To connect your disk drive, attach one end of the disk 
cable to the serial socket in the back of your computer (the one 
right next to where the cassette tape recorder is connected behind 
the "T and "8" keys) and the other end to the socket in the back O 
of your disk drive, directly above the "fuse." Now plug the power 
cord for your disk drive into the 3-pronged socket between the O 
on/off switch and the fiise. When everything else is connected, 
you can plug your disk power cord into a wall socket and flip the ^ 
switch to ON. Do not do it now. (NOTE: Unlike the cassette tape 
recorder that draws its power through the computer, the disk ^ 
drive needs to be plugged into a separate power source.) ^ 

TV or Monitor 

In order to see what's going on in your computer, you need a TV ^ 
set. On some computers it is necessary to purchase an RF mod- 
ulator, but your VIC-20 comes with a built-in RF modulator. Just 
plug one end of the connecting cable that comes with your VIC- 
2S) into the jack in the back of your computer, directly behind the 
" + " key, and the other end into the "box" that you attach to your 
TV. The "box" is attached to the antenna leads marked "VHF" 
on the back of your TV set, and the switch on the box is flipped 
to "computer." Finally, there is a switch in the back of your com- 
puter right next to where you connect the TV cable. Switch it to ^ 
channel 3 or 4 depending on what channel is "free" in your area. 
If it is switched to the right (relative to facing the front of your 
keyboard) it is set for channel 3; for channel 4 if switched to the 
left. Then set your TV dial to channel 3 or channel 4. Once that's ^ 
done you are sdl set. ^ 

Another option you can use with your VIC-20 is a monitor instead 
of a TV set. Basically, a monitor is the same as a TV except it has ^ 
higher resolution. It is quite useful if you're doing a lot of word 
processing. To connect to a monitor, you will have to purchase a ^ 
special connector and cable and connect it to the port right next 
to the serial port. The 5-Pin DIN audio cable found in stereo and 
electronic stores is probably a good bet, because it is possible not > j 
only to connect your computer to a monitor, but you can also 
connect it to an audio system (your hi-fi set). The following ^ 
descriptions of monitors and TV sets are the range of video devices 
you can use with your VIC-20. 
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Types of TV sets 

TVs come in a "jillion" different shapes, sizes, etc.; either a color 
or black and white will work fine. BE CAREFUL in the selection 
of the TV set you buy! Not all televisions work well with your 
VIC-20; so ask first before you buy; When I bought my TV set, 
a color one for the graphics, I simply looked at the color TVs 
being used on the computers in the stores and bought the same 
make and model at an "El Cheapo" discount house. An inexpen- 
sive way to get dear text is to purchase a black and white set. It 
has better resolution than a color set, is less expensive, and is 
good for word processing. Best of all, though, you can get one for 
as little as $50 and used ones for even less. Whatever the case, 
check to make sure that the TV set you purchase will work with 
your VIC-20. 

Types of Monitors 

1. Green screen. This type of monitor gives a green on black 
display and can be bought for between $100 and $200. The green 
and black display is quite good for doing a lot of word processing 
and non-graphic programming since it is easy on the eyes. How- 
ever, since this display presents only green and black, it is not 
too good for color graphics. Monitors also come with amber or 
blue screens, but the green screens are the most popular. 

2. Black and white. This monitor is essentially the same as the 
green screen, but is in black and white instead of black and green. 
However, it is more expensive than black and white TV sets, and 
while it gives better resolution than a television set, the extra 
cost may not be worth the difference. If you are considering the 
purchase of a black and white monitor, compare the resolution 
with a black and white TV set first to see if the extra cost is 
justified. 

3. Color. This type of monitor is the most expensive, but for 
people who work a lot with graphics, it is probably worth the 
added cost. It provides the high resolution for seeing graphics in 
detail. The very best color monitors require a special interface. 
Make sure you can get one for your VIC-20 before buying. 
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Printers ^ 

This section simply tells you how to hook up your printer and a ^ 
Httle about the different kkids of printers. If your printer is already 
hooked up and working, talffi a look at Chapter 9 for tips on max- 
imizing your printer's use. 

Types of Printers 

There are three basic kinds of printers — dot matrix, letter qual- ^ 
iby and thermaL However, for specialized use, there are also devices ^ 
called "plotters," ink-jet printers, line printers, laser printers and 
drum rotate printers. For heavy business use or specialized appli- 
cations, you may want to ask your dealer about these other ones 
not described below. ^ 

Dot Matrix — ^First, the most popular kind of printer is the "dot 
matrix" printer. This printer has a number of little pins which are 
fired to form little dots that print out as text or graphics. The O 
advantage of dot matrix printers is their relatively low cost and 
the fact that many of them can do both text and graphics. The ^ 
improved quality of text printing of dot matrix printers gives an 
almost "letter quality" product, and usually can give you several 
different type feces. In Chapter 9 there are several examples of 
different printing modes on dot matrix printers. We will be using 
the VIC-1525 printer by Commodore for most of our examples i , 
since it is directly compatible with the VIC-20. (Interfaces for 
parallel dot-matrix printers are available. See LETTER QUAL- \i 
ITY below.) 

Letter Quality — Second, for people whose major use of their 
computer is to do word processing, there are "letter quality" <0 
printers. Most of these are "daisy wheel" printers and type char- 
acters in much the same way as a typewriter does. Each symbol 
has a molded image as on typewriter heads. These printers are 
not good for graphics, but for the user who wants top notch look- ^ 
ing letters, manuscripts, reports and other written documents, 
these types of printers are the best. They tend to be relatively ^ 
expensive, however, and for most written materials, dot matrix 
printers are fine. The thing to do before you buy is compare. ^ 
Special interfeoes will be needed to connect a letter quality printer 
to your VIC-20; so mal^ sure you get a demonstration with the 

20 ^ 
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correct interface before buying a printer. Since the VIC-20 has a 
serial port (instead of a parallel port), you will probably want to 
get a printer that is serial compatible. However, Xitel, Inc. (2678 

^ North Main Street #1, Walnut Creek, CA 94596, 415-944-9277) 
makes a parallel interface for the VIC-20 which allows you to hook 

^ up to a parallel printer. 

^ Thermal— Third, for those people who are really on a budget, 
there are "thermal printers." These printers work with a special 
kind of paper, usuaUy on a roll, and make a "picture" of what is 
on the computer screen. They can easily handle both text and 

O graphics, but the quality of output is relatively low and the paper 
is very expensive. The best feature of these printers is their small 

O size and light weight; for people who travel with their computers 
and need print-outs, th^ can be handy. Like dot-matrix and letter 

O quality printers, however, make sure you can interface it to your 

_ VIC-20 before purchase. 

n 
n 
n 
n 

n 
n 



FREE ADVICE 
Before you buy a printer, decide what you will need it for 
and then look at the features of the different kinds before 
buying!!! And by all means, ask to see a demonstration on 
a VIC-20. Never let a salesperson convince you a certain 
printer will work without seeing a demonstration. Even a 
salesperson with the best intentions (e.g., they think a cer- 
tain printer is the best for your needs) may not realize that 
the model cannot be interfaced to your machine. Only a dem- 
onstration is sufficient to remove all doubts! 



^ If you purchase a VIC-1525 or similar Commodore printer, con- 
necting it is very simple. If you have a disk system, connect one 
end of the cable to the empty slot in the back of the disk drive 
and the other to the printer. This is called "daisy chaining" the 

C) printer. If you do not have a disk drive, connect the cable to the 
jack next to where the cassette tape cable is connected in the back 

C) of your computer. (The same jack where you would connect your 
disk drive.) In the back of the printer is a switch that can be 

n flipped to "T," "5," or "4." FUp the switch to "4." (The 'T' position 
is for "test" and the "5" position is for identifying the device as 

O "device 5." We will be using the printer as "device 4" in our exam- 
ples, so switch it to position "4.") 

n 



CAUTION 

NEVER insert or remove cables or interfaces to your com- 
puter while the POWER IS ON! Even if you are rich and 
can afford to buy new chips every time you blow them by 
messing with the hardware on your VIC-20 while the power 
is on, you might give yourself the SHOCK of a lifetime by 
doing so. 




Other Gadgets 

Besides the disk drive, TV/monitor and printer, most new users 
do not have anything else to hook up at this point, so you can skip 
on to the next sectioni However, if you plan on expanding your 
VIC-20 or have other gadgets you bought with your system, you 
had better read the following section. 

Many Ports of Call 

The nicest feature of the VIC-20 is its expandability and adapt- 
ability. The various ports and slots on your computer can be used 
to add many different devices to enhance your system. 

Modem — MODEM is a device which allows your computer to 
communicate with other computers over telephone lines. These 
devices usually require that you hook up your telephone to a part 
of the modem, or place the phone in an acoustic sender/receiver. 
The VICMODEM can be used with the VIC-20 simply by insert- 
ing it into the "User Port," right next to the cassette port and 
connecting your telephone line to it. Not only can the modem be 
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^ used to call up computer bulletin boards, but you can access such 
-I. information centers as The Source to get everything fixHn weather 
reports to airline tickets! 

More Wonderful Gadgets — There are numerous other car- 
tridges and interfaces to make the VIC-20 into a multifaceted 
machine. Special interfaces will allow you to access and use a 

O variety of peripherals such as various disk drive systems, printers 
and devices made for other computers. So while the VIC-20 is a 

O terrific microcomputer all by itself, it is fully expandable to make 
it even better. 

n 
n 



n 



Power on! 



O System Check-out 

^ Now that you have your VIC-20 all set to go, you simply plug it 
in, along with your TV or monitor, disk drive and printer, turn 
on the power and let her rip! On the right hand side, next to the 
port where your power supply cord goes, is a switch. Turn it to 

r) the ON position and turn on your TV set. If everything is con- 
nected, your TV screen will display the following: 

***# CMB BASIC V2 **** 
3583 BYTES FREE 



READY < 



^ If you have a color TV, the letters will be in light blue against a 

^ dark blue backgroimd with a light blue border. Directly below 
the READY, message is a little blinking square. It is called the 
"cursor," indicating your computer is waiting for you to press 
some keys and tell it what to do. Press the RETURN key several 

1^ times and the cursor will move down the side of the screen. The 
message on top will scroll off the top of your screen. Your cursor 

O is now at the bottom of the screen. To get it to the top, press the 
key marked CLR/HOME in the upper right hand corner of your 

O fc^board. Now the cursor will pop to the upper left hand comer. 
That done, you know your keyboard and computer are all set. We 
will return to the keyboard in a bit, but first, let's check out your 

^ printer, disk drive and/or cassette tape recorder. 

n 
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To see if your printer is working correctly, put in the following O 
program EXACTLY as it appears below: First write in the word 
NEW and press RETURN. (<RETURN> means press the but- ^ 
ton marked "RETURN.") 

u 

10 OPENTtfl <RETURN> 

20 PRINT«7» "MY PRINTER IS WORKING!" ^ 
<RETURN> 

30 CLOSE? <RETURN> ^ 

Make certain you have written the program as it appears above. ^ 
If there are even minor differences, change it so that it is precisely 
the same. Put the ribbon and some paper into your printer. Now ^ 
turn on your printer and write in the word RUN on your computer 
and <RETURN>. If your printer is attached properly, it will 
print out the message, "MY PRINTER IS WORKING!" If a 
"SYNTAX ERROR" or some other error message jumps on the 
screen, it means that you wrote the little test program improp- (, 
^ly; so go back and do it again. If the system "hangs up" - the 
screen goes blank and nothing happens - check to make sure the 
printer is turned on and the switch on the back is flipped to "4." 
If it still doesn't work, turn off the printer and the computer and 
review the steps for hooking up your printer. 



Booting Disks— 
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Assuming your system is working correctly, let's "boot" a diskette 
on your VIC-1541 disk drive. (If you have another type of disk ^ 
system, see the manual that comes with your disk drive, but a 
VIC-1540 disk drive will work in a very similar manner as the ^ 
1541 described here. Since the VIC-1541 is compatible with both 
the COMMODORE-64 and VIC-20, and the VIC-1540 works only ^ 
with the VIC-20, the 1541 model is recommended.) Here's how. 
TURN YOUR COMPUTER OFF FIRST. Turn on your disk drive ^ 
by flipping the switch located in the back of the drive to the ON 
position. The red light will light and some noises will come out ^ 
for a second and then the red light will go off and the green light 
will come on. Now turn on your VIC-20. At this point insert a ^ 
BLANK SOFT SECTORED diskette (NOT the TESfT/DEMO , , 
diskette which comes with your drive) with the little square notch 
oriented to the left with the disk label facing upwards. Now close (t 
the door on the disk drive until it clicks shut. At this point you 
can format your diskette. 
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(NOTE: Once a disk is formatted, you should NOT format it again 
unless you want to remove all programs from the diskette.) 



0PEN15»8»15» 
<RETURN> 



'UI- 



CLOSE 15 



(NOTE: The VIC-ISU automatically defaults to work 
mth the COMMODORE-64. In order for it to work cor- 
rectly with your VIC-20, every time you turn on your 
disk drive, start with the above seqmnce using "UI-". 
"UI+" mil change it to the speed for a COMMODORE- 
6i, which you do not vmit.) 

PRINT«15» "N0SMYDISK »20" <RETURN> 

The disk will whirl around for a while and eventually stop. At this 
point your diskette is formatted and all set to be used. (If you 
have a VIC-1540 drive, you must "initialize" it at this point, 
lb do so, enter OPEN15,8,15,"r'. You do not have to enter the 
"UI-" command since the 1540 defaults to the speed of the 
VIC-20.) 



n 
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WARNING!! 

The term "initialize" on your COMMODORE drives (both 
the 1540 and 1541) means to "get it ready for use." On other 
computers, "initiialize" means to "format" the diskette. 
Remember, format a diskette only once, but initialize it every 
time you put it into the drive on the 1540. "Initializing" your 
diskette on your COMMODORE drive will not era^e any 
programs. "Formatting" with the "N" command will erase 
programs! If you have a "write protect" tab covering the 
notch in your diskette, it will protect the programs on that 
diskette from accidental erasure. A "write-protected" disk- 
ette cannot be formatted or overwritten; so if you have a 
diskette you do not want ruined, make sure it has a write- 
protect tab over the notch. Never format your TEST/DEMO 
diskette which comes with your disk drive. On the VIC- 
1541, you only need "initialize" a diskette if you run into an 
error and the red light on your drive starts blinking. Once 
you have initialized it, it is necessary to reset the disk drive 
speed using the "UI-" command sequence. 



Now we will load the VIC-20 DOS WEDGE that comes on your 
VIC-1541 TEST/DEMO diskette. (DOS, pronounced "DAS," refers 
to "Disk Operating System.") TMe out your newly formatted 
diskette, and place the TEST/DEMO dislrette in the drive. To see 
the contents of the diskette, enter 

LOAD "$" »8 <RETURN> 

When it is READY, enter 

LIST <RETURN> 

The contents of your TEST/DEMO disk are now listed to the 
screen. To stop the listing, press the RUN/STOP key on your 
computer. Now enter 

LOAD "UIC-20 WEDGE" »8 <RETURN> 

When the READY, prompt appears, enter 

RUN <RETURN> 
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Now you will see on your screen: 



MIC MEDGE 
BY DAi^ID A. HOOK 



> 



DISK STATUS 
OR COMMANDS 



>t0 
e$0 



DIRECTORY 



/FILENAME 



LOAD 



READY. 

Your DOS is now in place. Enter 

>*0 <RETURN> 
Your disk listed the contents without having to enter 

LOAD "$" »8 

And it listed automatically. Now try loading a program. Enter 

/DIR <RETURN> 
RUN <RETURN> 

With the VIC-20 WEDGE in place, to LOAD a program enter 
the slash (/) and the name of the file you want. Once it is loaded, 
just enter "RUN <RETURN>" and the program will execute. 
Your DIRectory program is in memory. Press the "D" key on 
your computer, and the programs are listed in single space, get- 
ting more of the directory on your screen at once. Play with it for 
a while, and then "Q)uit" the program by pressing "Q". Take out 
the TEST/DEMO disk and put in your blank formatted disk. Use 
your TEST/DEMO disk only for loading the JIC-W WEDGE or 
other programs. Never SAVE programs to it. Use your blank 
formatted diskette for that. 

(See Chapter 9 for more details on using your disk system.) 
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To retrieve a program firom disk mtlumt DOS (the VIC-20 ^ 
WEDGE), simply LOAD it and then RUN it. Using your TEST/ 
DEMO di^tte, load one of the programs by entering the following: 



LOAD "<PROGRAri NANE>" *8 

Your screen will indicate it is first searching for the program and 
then loading it. When you are prompted with "READY.", simply 
enter 

RUN <RETURN> 
to execute the program. 

LOADIng and RUNnIng Programs From Tape 



NEW <RETURN> 

10 PRINT "<YOUR NAME>" <RETURN> 
20 END <RETURN> 
SAVE "ME" < RETURN > 



LOAD "< PROGRAM NAME >" <RETURN> 



The procedure for loading and running programs from tape is 
quite simple. The following steps show you how: 

STEP 1. Make sure your tape recorder is connected and 
rewind it to the beginning. If you have a tape with pro- ^ 
grams on it, use it to test LOADing. (A game cassette 
<not cartridge> will work fine.) If you do not have a tape 
with a program on it, enter the following program: 



Rewind tape and press REC and PLAY keys simultane- ^ 

ously on your recorder. When the recorder stops and the \^ 
READY, prompt comes on your TV screen, press STOP 

and rewind your tape. ^ 

STEP 2. Turn on your computer and when you get the ^ 
cursor, write in the following: 

<J 
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STEP 3. Press the PLAY button on your tape recorder 
as your computer will prompt you to do. At this point the 
screen will go blank for a while, and when it reappears 
you will see the messages: 

SEARCHING FOR <NAME OF PROGRAM> 
FOUND <NAME OF PROGRAM> 
< PRESS THE COMMODORE KEY - LOWER 
LEFT HAND CORNER OF YOUR KEYBOARD> 

The screen will go blank again for a wWle and when it 
reappears the second time it will read 

LOADING 
READY. 

STEP 4. At this point your program is all loaded and 
ready to go. Enter the word RUN, and your program will 
then execute. If you used our example program, your 
name will simply be printed on the screen. Rewind your 
tape now so that it will be ready for the next time. 



TAPE TO DISK TRANSFER 
If you have both a tape and a disk system and you don't want 
to wait for the longer loading time of tapes every time you 
run it (especially when you start accumulating several pro- 
grams on tape), why not transfer your tape files to disk? 
Just boot your DOS, put a formatted disk into the drive, 
initialize it, and then load your program on tape. Once your 
tape program is loaded, simply write in SAVE "<name of 
file>",8 and now your tape program is on disk! Makes life 
simpler. 



cartridge programs 

When you purchase cartridge programs for your computer, just 
insert the cartridge into the cartridge port and turn on your com- 
puter. It will automaticaUy run the program for you. 
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The viC-20 Keyboard ^ 
Almost Like a Typewriter: The Familiar Keys 

If you are familiar with a typewriter keyboard, you will see most ^ 
of the same teys on your VIC-20. For the most part, they do ^ 
ahnost the same thing as your typewriter keys. If you type in the 
word COMPUTER, hitting the same keys you would on a type- 
writer, the word "COMPUTER" appears on the screen just as it 
would on paper in a typewriter. However, the upper-case (capital 
letters) and lower-case letters do not work exactly the same as a 
typewriter. On the VIC-20, you have to shift into the "upper/ ^ 
lower-case" mode by pressing the "Commodore Key" (the little 
one in the lower left hand corner with the Commodore logo on it) '<J 
and the SHIFT key simultaneously. When you do that, your keys 
will work more like a typewriter. When you want upper-case, ^ 
simply press the SHIFT key and a letter to get upper-case as you 
wouldonalypewriter. Also, the screen has only 22 columns instead ^ 
of 80 like most typewriters. Of course, you cannot type just any- 
thing on the screen. If you start typing away, you'll get a SYNTAX ^ 
ERROR every time you press RETURN unless you put in the , , 
proper commands. Otherwise, though, think of your keyboard as 
you would a typewriter keyboard. (NOTE: In most of the pro- ^ 
gramming examples, we will be using upper-case only.) 

30 ^ 



10 PRINT " : REM A LITTLE 
HEART WILL APPEAR ON YOUR 
SCREEN 

20 PRINT ''<YOUR NAME>" 
30 END 



Keys YOU won't see on a Typewriter 

WMe most of the keys on your VIC-20 look like those on a type- 
writer, many do not, and they are important to know about. The 
following keys are peculiar to your computer; you will soon get 
used to them even though they will be a bit mysterious at first: 

COMMODORE KEY { jQ: }— this key, located in the lower left 
hand comer of your keyboard, is used for shifting between upper 
case only and upper/lower case (with SHIFT key) and for printing 
the left hand graphics on the keys. Press the COMMODORE key and 
the "S" key simultaneously. Instead of getting an "S" you will get a 
checkerboard on your screen. 

CTRL (control) — In the upper left hand corner of your keyboard 
is the CTRL key, called the "control key." By pressing the CTRL 
lasy and one of the color keys (keys with numbers 1 through 8) you 
are able to change the colors on the screen. Try holding the CTRL 
key down and pressing the keys with numbers 1 through 8. You 
will get different colored cursors by doing so. If you press the 
CTRL key and the "9" key, you will get reverse printing. Try 
pressing CTRL-9 (the CTRL and 9 keys simultaneously) and then 
entering some letters. Now try CTRL-9 and then CTRL-3 and 
press the space bar several times. Using the CTRL key will give 
you interesting effects. To turn off the reverse effects, simply 
press RETURN, or CTRL-0. By now you probably realize that 
the markings on keys 1 through (e.g. , BLK on the "1" key) stand 
for the characteristics you get when you press that key and the 
CTRL simultaneously. 
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RUN/STOP and RESTORE— These two keys are on opposite ^ 
sides of your keyboard, but they are used together. The RUN/ . 
STOP key used by itself will stop a program execution. Using the 
RUN/STOP key and the RESTORE keys together, you restore ^ 
your program to the default conditions. For example, if you've 
been following the examples, you are probably stuck with some 
other colored cursor than the light blue one we started with. Press 
the RUN/STOP and RESTORE keys simultaneously, and your 
screen will clear and everything will be restored to normal. If 
you ever get into a jam and your computer "freezes" up, the RUN/ '^J 
STOP and RESTORE keys will un-jam it, and you will not lose 
the program in memory. Think of them as "panic buttons" or ^ 
"reset" keys. 

CLR/HOME (clear home) — In the upper right hand comer is a ' . 
very important key, the CLR/HOME key. In computer talk, 
"HOME" refers to placing the cursor in the upper left hand corner 
of the screen, and CLR (clear) means to clear the screen. To test 
this key, press the RETURN key several times so that the cursor 
is at the bottom of the screen. Now press the CLR/HOME key, 
and the cursor will pop to the top of the screen. Now press SHIFT- 
CLR/HOME and your screen will clear and the cursor will again 
be at the top of the screen. (Enter some text on the screen to see 
the difference between shifted and non-shifted CLR/HOME.) 

CRSR (cursor) Keys — In the lower right hand corner of your 
Ireyboard are the cursor keys. They are used to move the cursor ^ 
around the screen without affecting anything on the screen. The 
arrows on the keys indicate the shifted and non-shifted du-ection ^ 
of the keys. To get used to using them, here's a little exercise. 
Press SHIFT-CLR/HOME and then place the cursor right in the 
middle of the screen without using any other keys. If you can do 
that, you can use the keys fine. When the cursor keys are used 
within quotation marks in PRINT statements, fimny things begin 
to happen. Your computer is reading the cursor as something to 
print to the screen. For example, if you enter 



PRINT "<PRESS DOWN CRSR KEY 10 TIMES> ^ 
HELLO" <RETURN> 

you will get a series of inverse "Q's" when you press the "CRSR 
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down" fc^, and when you press RETURN the message "HELLO" 
will be spaced 10 places below the line on which you entered the 
command. 

RETURN— The RETURN key is something like the carriage 
return on a typewriter. In fact, you may see it referred to as a 
"Carriage Return" or "CR" in computer articles. It works in an 
analogous manner to a typewriter's carriage return, because the 
cursor bounces back to the left hand side of the display screen 
after you press it. However, there are other uses for the RETURN 
key which will be discovered as you get into programming. 

Arrow and Pi Keys — In the upper left hand corner of your key- 
board is an arrow key which simply prints out a graphic horizontal 
arrow for prompts in programs. However, the vertical arrow key 
on the right side of your keyboard does have functions other than 
graphic display. In the non-shifted position the key is used for 
exponentials of numbers. For example, enter PRINT 2 f 2 and 
RETURN. Your screen will print "4", the value of 2 to the second 
power. Now enter PRINT SHIFT- 1 <RETURN> and you will 
get 3.14159265, the value of Pi. 

INST/DEL— This key is an "editing key" to INSerT or DELete 
text. In Chapter 2, we will explain how it works. 

KEYBOARD GRAPHICS— On the front of most of the k^s there 
are various graphic symbols. These graphics can be accessed by 
pressing either the SHIFT key or the COMMODORE key and 
the key with the desired graphics. The giraphics on the right are 
accessed with the SHIFT key and the ones on the left with the 
COMMODORE key. (The graphics on the right cannot be directly 
accessed from the keyboard when in the upper/lower case mode.) 
See if you can print all of the different graphic characters to the 
screen using the SHIFT and COMMODORE keys. 

FUNCTION KEYS— On the far right side of your keyboard are 
the "function keys," numbered from "fl" through "f8". These keys 
can be accessed by special commands from your programs. Since 
they are more advanced, their use has been reserved for Chapter 
10. For the time being, you will not be using them, but if you have 
some programming experience, you might want to take a look at 
Chapter 10 to see how they can be accessed and employed in 
programs. 
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Some New Meanings for Old Kev§ <0 

Some of the familiar keys have different meanings for the com- , , 
puter than we usually associate with the key symbols. Many are 
math symbols you may or may not recognize. In the next chapter, 
we will illustrate how these keys can be operated and discuss them 
in detail. For now let's just take a quick look at the math symbols. 

SYMBOL MEANING ^ 

+ Add 

- Subtract 

* Multiply (different &t)m conventional) O 

/ Divide (different ftom conventional) 

t Exponentiation ^ 

In addition to some of the new representations for math symbols, 
other keys will be used in a manner to which you are not accus- 
tomed. As we go on, we will explain the meanings of these keys, ^ 
but just to get used to the idea that your VIC-20 has some special , 
meanings for keys, we'll show you some more here which will have 
special meanings later. ^ 



SYMBOL MEANING 
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Used to indicate a string variable and hex- 
adedmal value. 

Used to indicate "end of statement" in O 
program. 

Indicates an integer variable. O 
Can be used as PRINT command. 



Don't worry about understanding what all of these symbols do 

for the time being. Simply be prepared to think in "computer talk" ^ 

about symbols. As you become fEuniliar with the keyboard and 

the uses and meanings of these symbols, you will be able to handle 

them easily, but the first step is to be aware that the different , , 

meanings exist. ^ 
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^ SUMMARY 

^ This first chapter has been an overview of your new machine. You 
^ should now know how to hook up the different parts of your VIC- 
20 and get it running. Also, you should be able to format a disk- 
ette, load DOS (the VIC-20 WEDGE), list the contents of a disk, 
and load and run a program from disk or from tape. You should 
know some of the basic DOS commands (e.g., >,/) for manipulat- 
ing files on your diskette. Finally, you should be familiar with the 
O keyboard and know what the cursor means. At this point there is 
still much to learn, so don't feel badly if you don't understand 
everything. As we go along, you will pick up more and more; what 
may be confusing now, later will become clear. Have faith in your- 
self and in no time you will be able to do things you never thought 
possible. The next chapter will get you started in learning how 
'I to program your VIC-20. It is vitally important that you key in 
_ and run the sample programs. Also, it is recommended you make 
^ changes in them after you have first tried them out to see if you 
^ can make them do slightly different things. Both practical and fun 
(and crazy!) programs are included so that you can see the purpose 
^ behind what you will be doing and enjoy it at the same time. 
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CHAPTER 2 



Ladles and Gentlemen, start Your 
Engines 

introduction 

This chapter will introduce you to writing programs in the lan- 
guage known as BASIC. yiC-20 BASIC is different from some 
other versions of the language, and if you are already familiar 
with BASIC, you will find these differences. However, if you are 
new to the language, then you will find programming in BASIC 
very simple. To get ready, turn on your computer, and when the 
"READY." sign comes up on your TV, you are aU set to begin 
programming. If sometMng else is on your screen, press the 
RESTORE and RUN/SFOP simultaneous^, and key in NEW 
to clear memory. 

Your very First commandl 
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PRINT ^ 

Probably the most often used command in BASIC is PRINT, Words ^ 
enclosed in quotation marks following the PRINT command will 
be printed to your screen, and numbers and variables will be ^ 
printed if they are preceded by a print command. It is used to 
command your computer to print output to the screen or the printer ^ 
from within a program or in the Immediate mode. You may well 
ask what the difference is between the Immediate and Program ^ 
mode. Let's take a look. 

Immediate Mode — ^The Immediate mode executes a command as 

soon as you press RETURN, For example, try the following: ^ 

PRINT "THIS IS THE IMMEDIATE MODE" ^ 
<RETURN> 

If everything is working correctly, your screen should look like 

this: <J 

PRINT "THIS IS THE IMM 
EDIATE MODE" 

THIS IS THE IMMEDIATE t^J 
MODE 

READY. ^ 

See how easy that was? Now try PRINTing some numbers, but ^ 
don't put in the quote marks. Try the following: 

PRINT 6 <RETURN> 

PRINT 54321 <RETURN> ^ 

As you can see, numbers can be entered without having to use ^ 
quote marks, but as we will see later, the actual value of the 
number is placed in memory rather than a "picture" of it. ^ 

Program Mode — This mode "delays" the execution of the com- ^ 
mands until your program is "RUN". All commands which begin , . 
with numbers on the left side will be treated as part of a program. 
Try the following: 

10 PRINT "THIS IS THE PROGRAM MODE" ij 
<RETURN> 
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nothing happens, right? 

Enter the RUN command and your screen should look like this: 



READY. 



n 
n 
n 

10 PRINT "THIS IS THE 
^ PROGRAM MODE" 

RUN 

THIS IS THE PROGRAM MO 
DE 

n 

n Your very First Program! 

O Clearing the Screen and writing Your Name 

Let's write a program and learn two new commands. First, the 
new commands are CLR/HOME and END. The CLR/HOME 

^ command clears the screen and places the cursor in the upper left 
hand comer. The CLR/HOME command is a one-key command 

O made by pressing the SHIFT key and CLR/HOME keys at the 
same time. In the Program mode, the CLR/HOME appears as a 

O little heart on your TV, entered as PRINT "{CLR/HOME}". Don't 
worry, though, it will work fine like that. The END command 

O tells the computer to stop executing commands. From the Imme- 
diate mode write in the CLR/HOME command to see what hap- 

n pens. Now, let's write a program using {CLR/HOME}, END and 

^ PRINT. From now on, press the RETURN key at the end of each 
line. Throughout the rest of the book, I will no longer be putting 
in <RETURN> except in reference to entries in the Immediate 
mode. 

10 PRINT "-CCLR/HDME}" ! REM A LITTLE 
^ HEART WILL APPEAR ON YOUR SCREEN 

20 PRINT "<YOUR NAME>" 
D 30 END 

RUN <RETURN> 

n 

All you should see on the screen is your name, READY, and the 
O blinking cursor. Now, we're going to introduce two shortcuts that 
will save you time in programming and in memory. First, instead 



n 
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of entering new line numbers, it is possible to put multiple com- 
numds on the same line by using a colon ":" between commands. 
Also, instead of typing in PRINT, you can key in a question mark 
"?". Try the following program to see how this works. 

10 ? "<CLR/HOME>" 

20 ? "<YOUR NAME>" s END 

RUN <RETURN> 

It did exactly the same thing, but you did not have to put in as 
many lines or write out the word PRINT. Neat, huh? Now, as a 
rule of thumb, ALWAYS begin your pn^rams with PRINT "{CLR/ 
HOME}". This will help you get into a habit which will pay off *0 
later when you're ruiuiing all kinds of different programs. There 
will be exceptions to the rule, but for the most part, by beginning ^ 
your programs with {CLR/HOME}, you will start off with a nice 
dear screen rather than a cluttered one. 



While we're just getting started, it will probably be a good idea ^ 
to use the colon sparingly. This is because it is easier to under- 
stand a program with a minimum number of commands in a single 
line. Later, when you become more adept at writing programs, . 
and want to figure out ways to save memory and speed up pro- 
gram execution, you will probably want to use the colon a good , , 
deal more. Also, we want to make liberal use of the REM state- 
ment. After the computer sees a REM statement in a line, it goes ^ 
on to the next line number, executing nothing until it comes to a 
command which can be executed. The REM statement works as ^ 
a REMark in your program lines so that others will know what 
you are doing and as a reminder to yourself what you have done. ^ 
Just to see how it works, let's put it into our little program. 

10 PRINT "<CLR/HOME>" : REM THIS 

CLEARS THE SCREEN ^ 

20 PRINT "<YOUR NAME>" : END 

30 REM THIS MAGNIFICENT PROGRAM MAS ^ 
CREATED BY <YOUR NAME> 

Now RUN the program and you will see that the REM statements 
did not affect it at aU! However, it is much clearer as to what your ^ 
program is doing since you can read what the commands do in the 
program listing. ^ 

40 ^ 
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^ setting up a Program 
^ using Line Numbers 

O Now that we've written a little program let's take a look at using 
line numbers. In your first program, we used the line numbers 
10, 20 and 30. We could have used line numbers 1, 2 and 3 or 0, 1 
and 2 or even 1000, 2000 and 3000. In fact, there is no need at all 
' to have regular intervals between numbers, and line numbers 1, 

^ 32 and 1543 would have worted just fine. 

However, we usually want to number our programs by 10's, start- 
ing at 10. You may well ask, "Wouldn't it be easier to number 

^ them 1 , 2, 3, 4, 5, etc. ?" In some ways maybe it would, but overall, 
it definitely would not! Here's why. Type in the word LIST 

^ <RETURN>, and if your program is still in memory it will appear 
on the screen. Suppose you want to insert a line between lines 20 
and 30 which prints your home address. Rather than re-writing 
the entire program, all you have to do is to enter a line number 
with a value between 20 and 30 (such as 25) and enter the line. 
Let's try it, hut first remove the END command in line 20. 

n 
n 

^ Aha! You now have your name and address printed on the screen, 
and you simply wrote iif one line instead of retyping the whole 

^ program. Now, if we had numbered the program by I's instead of 
10's, you would not have been able to do that since there would 
be no i:w)m between lines numbered 2 and 3 as there was between 
20 and 30. You would have to rewrite the whole program. \^th a 

1^ small program, this would not be much of a problem, but when 
you start getting into 100 and 1000 line programs, youll be glad 

O you have space between line numbers! 

O Listing Your Program 

^ As we just saw, usmg the word LIST gives us a listing of our 
program. To make it neat, type in (SHIFT) {CLR/HOME} and 
LIST <RETURN>, and youH get a listing on a clear screen. 
However, once you start writing longer programs, you won't want 

1^ to list everything, but only portions. Let's examine the options 
available with the LIST command. 

O 



25 PRINT "<YOUR ADDRESS>" 
RUN <RETURN> 



n 
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WHAT YOU WRITE WHAT YOU GET ^ 



LIST 25 
LIST 20- 
LIST -20 
LIST 25-30 



WANNA HAVE SOME FUN? 
Usually you will want to use the LIST command from the 
Immediate mode as you write your program. However, you 
can use it from within a program. Just for fun, add the fol- 
lowing line to your program: 
40 LIST 

RUN your program and see what happens. Believe it or not, 
there are some very practical applications as we will see in 
some programs much later in the book. For the time being, 
though, it's just for fun. Now, back to some serious stuff. 



saving Your Program 

Suppose you write a program, get it working perfectly and then 
turn off your computer. Since the program is stored in the RAM 
memory, it will go to Never-Never Land, and you wiU have to 
write it in again if you want to use it. Fortunately, it is a simple 



LIST Lists entire program. 

LIST 20 Only line 20 is listed (or any line num- 

ber you choose). 

LIST 20-30 All lines from 20 to 30 inclusive are 

listed (or any other range of lines you 
choose). 

LIST -fl0 Lists from the beginning of the pro- 

gram to line 40 (or any other line num- 
ber chosen). 

LIST 40- Lists fi^m line 40 (or any other line 

number chosen) to the end of the 
program. ^ 

Try listing different portions of your program with the options ^ 
available to see what you get. The following commands will give 
you some examples of the different options: 



42 




n 
n 
n 

n 
n 
n 

n 
n 
n 
n 

O matter to SAVE a program to your diskette. Let's use our pro- 
gram for an example of SAVEing a program to disk. Make sure 
your program is still in memory by LISTing it, and if it is not, 
re-write it. Make sure a formatted disk is in the drive and write 
in the following: 



n 




SAVE "0:MY PROGRAM" fS 



^ (If you are not certain about disk formatting, review the section 
^ covering those items in Chapter 1.) 

^ The disk will start whirling and the red light will glow on the disk 
drive. This means the disk drive is writing your program to disk. 
When the red light goes out, write in >$0 <RETURN> (or 
L0AD"$",8 and LIST without the VIC-WEDGE). You will be 

r) presented with a directory of the disk. If you see 

O "MY PROGRAM" 

O in the directory, that means your program has been successfully 
^ saved to disk. 
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Saving Programs on Tape ^ 

To save a program to tape, put a blank cassette into your tape 
recorder and rewind it. Press the RECORD button and the PLAY 
button together on your tape recorder and write in SAVE "MY 
PROGRAM". The tape recorder will start spinning, and the mes- 
sage OK will appear on the screen along with the message SAV- ^ 
ING MY PROGRAM. When it is done, the READY prompt will 
reappear on the screen. Your program is now SAVEed to tape. W 
Unlike SAVEing to disk, you do not have to enter a "port number" 
(e.g.,8) since the VIC-20 defaults to the cassette drive with the ^ 
SAVE command. 



Retrieving Your Programs 



The best way to mate sure you have SAVEd a program to disk 
or to tape is to completely turn off your VIC-20, and then turn it ^ 
on again. Go ahead and do it. Initialize your distette by entering 
OPEN 15,8,15, "UI-" : CLOSE 15 <RETURN> and 0PEN15. ^ 
Then LOAD"VIC-20 WEDGE",8 and >$0 to see your disk dh^c- 
tory. You should be able to see your program, (MY PROGRAM), ^ 
in the directory. Now enter /MY PROGRAM <RETURN>. The ^ 
disk drive will whirl for a while, and then your program will be ^ 
loaded and the READY prompt will reappear. LIST and RUN 
your program to mate sure it's the same one you SAVEd. If it is 
the same, you know you have successfully SAVEd it to disk. 



A SAFETY NET 
As you begin writing longer programs, every so many lines 
you should SAVE your program to disk or tape. In this way, 
if your dog accidentally trips over your cord and turns off 
your computer, you won't lose your program and have to 
shoot the offending pooch. Saves both programs and dogs. 
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If you have a tape cassette, press the PLAY button on your recorder 
and enter LOAD "MY PROGRAM". The tape will whirl looking 
for the program, and then load it, responc^g with a READY ^ 
when completed. LIST and RUN it to mate sure it's the correct 
one. <^ 



^ Now that you have SAVEd and LOADed programs, let's look at 
another neat trick. Remembering you SAVEd your file under the 

O name MY PROGRAM, let's change the contents of that file. First, 
add the following line and then LIST your program: 

27 PRINT "<YOUR CITY* STATE & ZIP>" 




n 

Your program is now different from the program you SAVEd in 
^ the file MY PROGRAM since you have added line 27. Now write 



^ SAME " e0:MY PROGRAM"* 8 <RETURN> 

^ Clear memory with NEW, LOAD the file MY PROGRAM and 
LIST it. As you can see, line 27 is now part of MY PROGRAM, 

^ All you have to do to update a program is to LOAD it, make any 
changes you want, and then SAVE it under the same file name 
using the "@" before the "0". However, BE CAREFUL. No mat- 
ter what program is in memory, that program will be SAVEd 

O 



45 



when you enter the SAVE command; therefore, if your disk has 
PROGRAM A and you write PROGRAM B, and then SAVE it 
under the title PROGRAM A, it will destroy PROGRAM A and 
the SAVEd program will actually be PROGRAM B. Also, if you 
have a really important program, it is a good idea to make a 'Tjack- 
up" file. For example, if you saved your current program under 
the file names, MY PROGRAM and MY PROGRAM BACK-UP, 
it would have two files with exactly the same program. To play it 
really safe, save the program on two different diskettes. 



I TOLD YOU SO DEPT. 
Sooner or later the following will happen to you: You will 
have several disks or tapes, one of which you want to format 
or save programs on. You will pick up the wrong disl^tte or 
cassette, one witii valuable programs on it. There will be no 
write protect tab on the diskette or cassette, and after you 
format it or overwrite programs on it and blow away every- 
thing you wanted to keep, you will realize your mistake and 
say, "!&$#"!%&", and kick your dog. You cannot prevent 
that from happening at least once, believe me. Therefore, 
to insure that such a mistake is not irreversible, do the fol- 
lowing: MAKE BACK-UFs. Take your ORIGINAL and put 
it somewhere out of reach, and when you accidentally erase 
a disk or tape, you can make another copy. Remember, if 
you fail to follow this advice, your dog will have sore ribs. 
Be kind to your dog. 





46 



^ using Your Editor : Fixing Mistakes on the Run 



The Error Messages and Repairing Them 

By now you probably entered something and got a 7SYNTAX 
ERROR, 7SYNTAX ERROR IN 30 (referring to line 30 or any 
other line where an error is detected) or some other kind of error 
message, such as REDO FROM START, which told you some- 
thing was amiss. This occurs in the Immediate mode as soon as 
you hit RETURN and in the Program mode as soon as you RUN 
your program. Depending on the error, you will get a different 
type of message. As we go along, we will see different messages 
depending on the operation. For now, we will concentrate on how 
to fix errors in program lines rather than the nature of the errors 
themselves. This process is referred to as "editing" programs. 
(See APPENDIX A for a complete list of error messages.) 

Deleting unes 

The simplest type of editing involves inserting and deleting lines. 
Let's write a program with an error in it and fix it up. 

NEW<RETURN> 

10 PRINT "-CCLR/HOME}" 

20 PRINT " AS LONG AS SOMETHING CAN" 

30 PRINT : "GO WRONG" : REM LINE WITH 

ERROR 

40 PRINT "IT WILL" 
50 END 

RUN <RETURN> 
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If the program is written exactly as depicted above you will get ^ 
a ? SYNTAX ERROR IN 30. Now write in, 

30 <RETURN> 

LIST <RETURN> ^ 

What happened to line 30? ! You just learned about deleting a line. ^ 
Whenever you enter a line number and nothing else, you delete 

the line. We ah-eady learned how to insert a line, so all you have ^ 

to do to fix the program is enter the following: ^ 



30 PRINT "GO MRONG' 



Now run the program. It should work fine. The error was insert- 
ing the colon between the PRINT statement and the words to be 
printed. Another way you could have fixed the program was sim- 
ply to re-enter line 30 correctly without first deleting it, but I 
wanted to show you how to delete a line by entering the line O 
number. 

using the vic-20 Editor 

■\iWthin your VIC-20 is a trusty editor. To see how to work with ^ 
your editor, we'll write another bad program and fix it. OK, write ^ 
the following program and RUN it. 

NEM ^ 
1 PRINT "{CLR/HOME>" 

20 PRINT "IF I CAN GOOF UP A PROGRAM " ^ 
30 PRINT "I CAN" : FIX IT: REM BAD 
LINE 
40 END 

RUN <RETURN> 



All right, you got a ? SYNTAX ERROR IN 30. To repair it, instead 
of rewriting line 30 do the following: 

STEPl. LIST your program 



STEP 2. Press SHIFT and CRSR (up/down cursor -the ^ 

left CRSR key right below the RETURN key) and "walk" 

the cursor to LINE 30. ^ 

\J 
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STEP 3. Now using the right CRSR key "walk" the cur- 
sor to the right until it is just to the right of the first 
colon. 

STEP 4. Press the INST/DEL until the colon and quote 
mark after CAN disappear. 

STEP 5. Press the right CRSR key until the cursor is 
right over the colon. Now press SHIFT INST/DEL and 
the colon will jump a space to the right. 

STEP 6. Now simply enter a quotation mark after the 
"T" in the word "IT" in the space you INSerTed with 
your editor. Press RETURN and you're all finished. 

LIST the program again. Line 30 should now be correct. RUN 
the program and you should see the statement, IF I CAN GOOF 
UP A PROGRAM I CAN FIX IT. Let's learn more about the 
editor. Put in the following program: (Remember, in VIC-20 
BASIC, we can use question marks to replace PRINT statements. 
If you LIST the program before you run it, you will see that all 
of the question marks have magically been transformed to PRINT 
statements.) 

10 ? "{CLR/HDME>" 

20 ? "SOMETIMES I LIKE TO WRITE LONG 

LINES" : WHEW! 

30 ? "AND SHORT ONES TOO" 

40 END 

LIST <RETURN> 

See what happened to the question marks. 

RUN <RETURN> 

OK, after you ran the program it went El Bombo. The problem 
was that we stuck in that WHEW! without a PRINT statement 
or quote marks after the colon had terminated the line; or, alter- 
natively, we need a REM statement before WHEW! To repair it, 
LIST the program, 'Sralk" the cursor up to line 20 using the 
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CRSR Iffiy and, starting at line 20, retrace the line up to where 
the mistafce was made. To make it simple, remove the second 
quote mark, leaving the colon in place, and add a quote mark after 
the word WHEW! Since the colon is now inside the quote marks, 
it will be printed as part of the PRINT statement and be ignored 
as a line termination statement. Press RETURN and RUN the 
program. 

Now let's take a look at a feature of the VIC-20 editor that might ^ 
cause some problems. Enter the following BUT DO NOT HIT 
RETURN!!!!: ^ 



20 PRINT "I LIKE TO CDMPUUUUUUT 



Whoops! There's a mistake, but you haven't finished the line. No ^ 
sweat. Just press (SHIFT) H-CRSR and back the cursor over the 
multiple "U's" and re-enter it correctly. (H-CRSR is "horizontal 
CRSR key," and V-CRSR is "vertical CRSR key.") However, you 
find that when you press the CRSR key instead of walking the 
cursor, you get inverse vertical lines or brackets. With the up/ <U 
down CRSR you get big blue dots and inverse "Q's". What's going 
on!?? O 

Not so elementary, Watson. As we noted in Chapter 1, the VIC- ^ 
20 gives you the option of printing those inverse Characters inside 
a set of quotation marks, and to make them, you have to press ^ 
the CRSR keys. To make repairs, simply press RETURN and 
then, using the CRSR fcqrs, walk up and make the repairs. As 
you will see, the CRSR keys are now working fine, even inside 
the quotation marks. (HINT: Let's face it, it would have been a 
lot easier simply to press the INST/DEL key a bunch of times to ^ 
get rid of those offending "U's", but then you would never have 
learned why your CRSR key went nuts inside the quotation marks.) 

U 
U 

u 
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WATCH OUT FOR 'RUNDY' 
After editing with the VIC-20, 1 have often entered RUN 
over the READY prompt, ending up with "RUNDY". Of 
course, instead of having the program RUN, it gives a 
7SYNTAX ERROR. On some computers, as soon as you 
press RETURN, the remaining characters on the line are 
forgotten if the cursor has not been passed over them. 
Therefore, if you are used to other kinds of computers, watch 
out for RUNDY! 



More Editing 

Let's do a few more things with your editor before going on. We'll 
practice some more with inserting characters and numbers, but 
we will also see how to edit groups of characters. So, let's see how 
we can use the editor to do more with 'Insertions." Try the fol- 
lowing little program: 

10 PRINT "<CLR/HOME>" 

20 PRINT "NOW IS THE TIME FOR ALL 

GOOD MEN"; 

30 PRINT "TO COME TO THE AID OF THEIR 

COUNTRY" 

40 END 

So far so good, but you meant to include women as well as men 
in line 20. You could retype the entire line, but all you really need 
to add is AND WOMEN after MEN. Also, it's really boring to 
have everything in upper case. Let's change the line to include 
women and make it both upper and lower case: 

STEP 1. Press the "COMMODORE" and SHIFT keys 
simultaneously, and everything will go to lower case 
characters. 

STEP 2. "Walk" the cursor up to the beginning of line 30 
using the CRSR keys and then place the cursor to the 
right of the first quotation mark. 

STEP 3. Press the SHIFT and INST/DEL keys to make 
enough spaces to include "and women", and enter "and 
women". 
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STEP 4. To make the sentence correct, place the cursor 
over the "n" in "now" in line 20 and press SHIFT and 
"N" to capitalize the first letter of the sentence. 

After these repairs, you now have upper and lower case, and when 
you RUN your program it should read: 

Now is the time for all good men and 
women to come to the aid of their 
count ry • 

You will save yourself a great deal of time if you use the editor 
rather than retyping every mistake you mate. Therefore, to prac- 
tice with it, there are a several pairs of lines below to repair. The 
first line shows the wrong way and the second line in the pair 
shows the correct wi^r. Since "little" things can mate a big dif- 
ference, there are a number of changes to be made. However, as 
you will soon see, those little mistates are the ones we are most 
likely to get snagged on. Practice on these examples until you feel 
comfortable with the editor - time spent now will save you a great 
deal later. 



Editor Practice 



50 PRINT I LICK MY VIC" 
50 PRINT "I LIKE MY VIC" 

10 PRINT -CCLR/HOME} 
10 PRINT "{CLR/HOME>" 



80 PRINT "A GOOD MAN IS HARD TO FIND" 

80 PRINT "A GOOD PERSON IS HARD TO 
FIND" 

40 PRINT "<CLR/HOME>" PRINT "WE'RE 
OFF! 

40 PRINT "tCLR/HOME>" : PRINT "WE'RE 
OFF ! " 



If you fixed all of those lines, you can repair just about anything. 
Once you get the hang of it, it's quite simple. 
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ELEMENTARY MATH OPERATIONS 

So far all we've done is to PRINT out a lot of text, but that isn't 
^ too different from having a fancy typewriter. Now, let's do some 

simple math operations to show you your computer can compute! 
^ Enter the following: 

n 
n 
n 



CLR/HOME 
PRINT 2+2 



This is what your screen should look like now: 



PRINT 2+2 

O a 

O Big deal, so the computer can add - so can my $5 calculator and 
my 8 year old kid. Who said computers are smart? The program- 
^ mer (you) is who is smart. OK, so let's give it a little tougher 
^ problem. 

n 



CLR/HOME 

PRINT 7.87 # 123.65 



^ Still nothing your calculator can't do, but it'd be a little rough on 
the 8 year old. 

O As we progress, we can include more and more aspects of math- 
ematical problems. In the next chapter, we will see how we can 

O store values in variables and a lot of things that would choke your 
calculator. For now, though, all well do is to introduce the format 

O of mathematical manipulations. The " + " and " - " signs work just 
as they do in regular math, and the " x " is replaced by the "*" 

^ (asterisk) for multiplication and the " is replaced by the 'T 

^ (slash) for division. 

^ , As we begin dealing with more and more complex math, we will 
■ need to observe a certain order in which problems are executed. 
^ This is called "precedence." Depending on the operations we use, 

and the results we are attempting to obtain, we will use one order 
^ or another. For example, let's suppose we want to multiply the 

smn of two numbers by a third number - say the sum of 15 and 

n 



Try some different problems and see if you can get what you want. 

Re-Ordering Precedence 
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20 multiplied by 3. If you entered 

3 # 15 + 20 '^J 

you would get 3 multiplied by 15 with 20 added on. That's not ^ 

what you wanted. The reason for that is precedence - multiph- 

cation precedes addition. To help you remember the precedence, 

let's write a little program you can run and then play with some i, 

math problems in the Immediate mode to see the results and refer 

to your "Precedence Chart" on the screen. (This little program ^ 

is quite handy; so save it to disk or tape to be used later.) 

10 ? "{CLR/H0ME3-" 

20 PRINT "1. - (MINUS SIGNS FOR ^ 
NEGATIVE NUMBERS" 

30 PRINT " - NOT SUBTRACTION)" O 

aid PRINT "2, t (EXPONENTIATION)" 

50 PRINT "3. * / (MULTIPLICATION AND ^ 

DIVISION)" 

60 PRINT "a, + - (ADDITIONS AND ^ 
SUBTRACTIONS)" 

70 PRINT "NOTE: ALL OTHER PRECEDENCE" ^ 
74 PRINT "BEING EQUAL* PRECEDENCE" , 
78 PRINT "IS FROM LEFT TO RIGHT" ^ 
80 PRINT "YOUR COMPUTER FIRST ^) 
EXECUTES THE NUMBERS IN PARENTHESES i " 
90 PRINT "WORKING ITS WAY FROM THE ^ 
INSIDE OUT IN MULTIPLE PARENTHESES." 



Once you get the knack of the order in which math operations 
work, there is a way to simplify the organization of math prob- \^ 
lems. By placing two or more numbers in PARENTHESES, it is 
possible to move them up in priority. Let's go back to our example <^ 
of adding 15 and 20 and then multiplying by 3, but this time we 
will use parentheses. 

PRINT 3 * (15 + 20) <J 



n 



THE PARENTHESES DUNGEON 

Tb help you remember the order in which math operations 
are executed within parentheses, think of the operations as 
being locked up in a multi-layer dungeon. Each cell repre- 
sents the innermost operation, and the cells are lined up 
from left to right. Each "prisoner" is an operation sur- 
rounded by waSs of parentheses. To escape the dungeon, 
the prisoner must first get out of the innermost cell, then 
go to his right and release any other prisoners in their cells. 
Then they break out of the "cell-block" and finally out into 
the open. Unfortunately, since operations are "executed," 
this is a lethal analogy for our poor escaping "prisoners." Do 
some of the examples and see if you can come up with a 
better analogy. 



^ Now, since the multiplication sign has precedence over the addi- 

^ tion sign, without the parentheses, we would have gotten 3 times 
15 plus 20. However, since all operations inside parentheses are 

^ executed first, your computer FIRST added 15 and 20 and then 
multiplied the sum by 3. If more than a single set of parentheses 

^ is used in an equation, then the innermost is executed first, work- 
ing its way out. 

n 
n 
n 
n 
n 
n 
n 
n 
n 

The following examples show you some operations with 
parentheses. 

O PRINT 20 + 10 + (8 - 4 

PRINT (12,43 + 92) / 3 t (11 - 3) 

PRINT (22 - 3.1415) *(22 + 3.1415) 

_ PRINT ((IB + 4) - (3 + 5)) / 18 

^ PRINT 19 + 2 * (51 / 3) - (100 / 14) 

^ Now try some of these problems in the proper format expected 
^ by your computer: 

Multiply the sum of 4 , 9 and 20 by 15. 

O Multiply 35 by 35 and the result by pi {SHIFT t }• The 

vertical arrow/pi key is located between the asterisk and 

O RESTORE keys. (You realize that this will compute the 

area of a circle with a radius of 35; to find the area of any 
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other circle, just change 35 to another value.) Pi (SHIFT ^ 
t ) is treated just like any other number you enter, but 
to save time, you need only a single key. Pretty neat, huh? 

Add up the charges on your long distance calls and divide 
the sum by the number of calls you made. This will give 
you the average expense of your calls. Remember, though, <J 
you have to do this in one set of statements in a single 
line. Do the same thing with your check book for a month ^ 
to see the average (mean) amount for your checks. 



SUMMARY 
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This chapter has covered the most basic aspects of programming. 
At this point you should be able to use the editor in your VIC-20 
and write commands in the Immediate and Program (deferred) t, 
modes. Also, you should be able to manipulate basic math oper- 
ations. However, we have only just begun to uncover the power 
of your computer, and at this stage, we are treating it more as a 
glorified calculator than a computer. Nevertheless, what we have 
covered in this chapter is extremely important to understand, for 
it is the foundation upon which your understanding of program- 
ming is to be built. If there are parts you do not understand, 
review them before continuing. If you still do not understand ^ 
certain operations after a review, don't worry. You will be able to 
pick them up later, but it is still important that you try and get ^ 
everything to do what it is supposed to do and what you want it 
to do. ^ 

The next chapter will take us into the realm of computer pro- ^ 
gramming and increase your understanding of your VIC-20 con- ^, 
siderably. If you take it one step at a time, you wiU be amazed at 
the power you have at your fingertips and how easy it is to pro- 
gram. Also, we will be leaving the realm of calculator-like com- 
mands and getting down to some honest-to-goodness computer ^ 
work. This is where the fun really begins. 
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^ CHAPTER 3 

n Moving Along 

^ introduction 

^ In the last chapter, we saw how to get started in executing com- 
mands in both the Immediate and Program mode. From now on 
we will concentrate our efforts on building from the foundation 
set in Chapter 2 in the Program mode, tying various commands 

O together in a program. We will, however, use the Immediate mode 
to provide simple examples and to give you an idea of how a 

^ certain command works. Also, as we learn more and more com- 
mands, it would be a good idea if you started saving the example 

^ programs on your disk or cassette so that they can be used for 
review and a quick "look-up" of examples. Use file names that 
you can recognize, such as VARIABLE EXAMPLE or HOW TO 

^ SUBROUTINES, and REMEMBER each file has to have a dif- 
ferent name; so be sure to number example file names (e.g., 

^ ARRAYS 1, ARRAYS 2, etc.). 

n VARIABLES 

O Perhaps the single most important computer function is in vari- 
able commands. Basically, a variable is a symbol that can have 

O more than a single value. If we say, for example, X = 10, we 
assign the value of 10 to the variable we call "X". Try the following: 

X = 10 <RETURN> 
O READY. 

PRINT X <RETURN> 

n 
n 
n 
o 
n 
n 
n 
n 



Your computer responded 
10 

Now type in 

X=55.7 <RETURN> 
READY. 

PRINT X <RETURN> 
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This time you got 
55.7 

Each time you assign a value to a variable, it will respond with 
the last assigned value when you PRINT that variable. Now try 
the following: 

X = 10 <RETURN> 
Y = 15 <RETURN> 
PRINT X + Y <RETURN> 

And your VIC-20 responded with 

25 

As you can see, variables with numbers can be treated in the 
same way as math problems. However, instead of the numbers, 
you use the variables. Now let's try a little program using vari- 
ables to calculate the area of a circle. 

10 PRINT "{CLR/HOME>" 

20 PI = (SHIFT) t : REM USE THE "PI" 

CHARACTER RIGHT NEXT TO THE 'RESTORE' 

KEY 

30 R = 15 : REM R IS THE RADIUS OF 
OUR CIRCLE 

40 PRINT PI # (R # R) : REM THIS 
GIMES US PI TIMES THE SQUARE OF THE 
RADIUS 
50 END 

When you RUN the program, you will get the area of a circle 
with a radius of 15. If you change the value of "R" in line 30, it is 
a simple matter to quickly calculate the area of any drde you 
want! Since our example "squares" a number, why don't we use 
our exponential sign " f ". Change line 40 to read: 

40 PRINT PI * (R t 2) : REM SAME KEY 
AS THE "PI" SIGN BUT YOU DON'T SHIFT 
TO PRINT IT 
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n 

n 
n 

n 
n 

n 

n 
n 
n 
n 
o 
n 
n 
o 
n 
n 
n 
n 
n 
n 



That saves typing, doesn't it? RUN the program again and see if 
you get the same results. You should. Also, change the value of 
B to see the areas of different circles. 

variable Names 

When you name a variable, the computer looks only at the first 
two characters. For example, if you name a variable NUMBER, 
all your computer is interested in is NU. Try the following: 

NUMBER = 63 
PRINT NU 

You got 63 even though you entered only the first two characters 
of the variable you called NUMBER. Now try this next one: 

NUMBER » 123 
PRINT NUDE 

The value 123 is printed because the only characters of interest 
to the computer are still the first two; so even if you undress 
NUMBER you stiU get 123! 
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Now it may seem the best thing to do is to use variable names 
with only two characters, and while you're getting used to vari- 
ables, that's probably not a bad idea. However, as you get into 
more and more sophisticated programs, it helps to use variable 
names which are descriptive. For example, the following program 
uses MEAN as a descriptive variable name: 

10 PRINT "<CLR/HOME>" 

20 A = 15 : B = 23 : C = 38 

30 MEAN =(A+B+C)/3 

40 PRINT MEAN 

50 END 

If the above program were a hundred or more lines long, you 
would know what the variable MEAN does - it calculates a "mean." 
Now you'd have to be careftd not to have another variable named 
MEATBALL or some other name beginning with "ME", but it 
would certainly make it easier to understand what it does. 

Other considerations in naming variables include not using 
"reserved words" (i.e., programming commands) or variables, 
and beginning variable names with a letter. Ther« are only 3 
reserved variables— TI, TI$ and ST. Furthermore, all words used 
as program commands are also reserved. Let's look at some exam- 
ples of what is and what is not a valid variable name: 

PRINT = 987 (Invalid name since PRINT is a reserved 
word.) 

Rl = 321 (Valid name since first character is a letter.) 
IR = 55 (Invalid since first character is not a letter.) 
FORT = 222 (Invalid since variable name contains 
reserved word FOR.) 

PR = 99 (Valid name, even though reserved word PRINT 
begins with PR, because only part of the reserved word 
is used in variable name.) 

TO = 983 (Invalid name since TO is a reserved 2 char- 
acter word.) 

TI = 99999999 (Invalid since TI is a reserved variable 
for time.) 

ADFETDCVRRWRDAAF = Ifl (Valid name, but really 
dumb.) 
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T = A * (B + C) 

N = N + 1 

SUM = X + Y + Z 



It is also possible to give values to variables with other variables 
or a combination of variables and numbers. In our example with 
the variable MEAN we defined it with other variables. Here are 
^ some more examples: 

n 
o 

D Types of variables 
O Real variables 

So far we've used only "real" or "floating point" variables in our 
examples. Any variable which begins with a capital letter and 

^ does not end with a dollar sign ($) or percentage sign (%) is a real 
variable. The value for a real variable can be from + or 

D -2.93873588E-39 to + or -1.70141183E+38. The "E" is the 
scientific notation for very big numbers. For the time being, don't 

O worry about it, but if you get a result with such a letter in a 
numeric result, get in touch with a math instructor. At this junc- 

O ture, figure you can enter numbers in their standard format firom 
0.01 to 999,999,999. (If your checkbook debit or income tax pay- 
ments have a scientific notation m them, leave the country. ) Think 
of real variables as being able to hold just about any number you 
would need along with the decimal firactions. 

^ Integer variables 

O Integer variables contain only "integer" or "whole" numbers - 
ones without firactions. The following are some examples: 

n 
n 

The values of integer variables can range from - 32767 to + 
^ 32767, and, like real variables, only the first two characters are 

read. However, the "%" is always read, no matter how many 
^ characters are used. So, a variable named yfA% is the same as 

WAX%. Also, a variable named ABC is different firom one named 



ABX = 345 
K% = R% + N% 
ADD% » ADDX + NUM% 
WXY% = 88 + LRX 
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ABC%; therefore, both variables could be used in the same pro- 
gram and each be considered unique. As they have a lower range 
than real variables, integer variables have limited applications; 
however, integer variables take up less memory and execute fiister 
than real variables so they have many useful applications. Th^ 
can be used in mathematical operations in the same way as are 
real variables, but since they do not store fractions, operations 
using division and similar fraction operations must be done with 
care. Try some of the following operations from the Immediate 
mode to see how they work: 

A% = 15 : B% » 21 : CX = B% + A% : 

PRINT CX <RETURN> 

36 

LL% = 17 !JJ% = LL% / 5 ; PRINT JJ% 

<RETURN> 

3 

ZX = -11 :XYX = ZX + 51 : PRINT XYX 

<RETURN> 

40 

String Variables 

string variables are extremely useful in formatting what you will 
see on the screen, and like real and integer variables, they are 
sent to the screen by the PRINT statement. However, rather 
than printing only numbers, string variables send all kinds of 
characters, called "strings", to the screen. String variables are 
indicated by a dollar sign ($) on the end of a variable. For example, 
A$, BAD$, G$, and PULL$ are all legitimate string variables. 
(In computer parlance, we use the term "string" for the dollar 
sign. Thus, our examples would be called "A string," "BAD string," 
etc.) String variables are defined by placing the "string" in quo- 
tation marks, just as we did with other messages we PRINTed 
out. 

Let's try out a few ^camples from the Immediate mode: 

ABC* = "ABC" : PRINT ABC* <RETURN> 
G* = "BURLESQUE" : PRINT G* <RETURN> 
KAT* ="CAT'' : PRINT KAT* <RETURN> 
NUMBER* = "123456789" : PRINT NUMBER* 



62 



n 



<RETURN> 

Bl« = "5 + 10 +20" s PRINT Bl$ 
O < RETURN > 

In the same way that real and integer variables use only the first 
^ two characters, a string variable must begin with a letter and use 
non-reserved words. More importantly, you probably noticed in 
our examples that numbers in string variables are not treated as 
numbers, but rather as "words" or "messages." For example, you 
^ may have noticed that when you PRINTed Bl$, instead of print- 
ing out "35" (the sum of 5, 10 and 20), Bl$ printed out exactly 
what you put in quotes, 5 + 10 + 20. Do not attempt to do math 
with string variables. (In later chapters, we'll see some tricks to 
O convert string variables to numeric — real or integer— variables, 
but for now just treat them as messages.) 

Now, let's put all of our accumulated knowledge together and write 
a program which will allow you to subtract a check fix)m your check- 
book and print the amount. This program, will be the beginning of 

^ something we will later develop to give you a handy little program 

^ with which to do checkbook balancing. 

^ 10 PRINT "HCLR/HOME}" 

20 BALANCE = 571.88 : REM ANY FIGURE 
^ MILL DO 

25 REM BALANCE (BA) IS A REAL 

VARIABLE 

30 CHECK = 28.95 s REM WHAT YOU LAST 
SPENT IN THE COMPUTER STORE. 
35 REM CHECK (CH) IS A REAL VARIABLE 
O 40 B$ = "BEGINNING BALANCE=$" 

50 C* = "YOUR CHECK IS *" 
O 60 NB$ = "NEM BALANCE IS *" 

65 REM B«» C$ AND NB« ARE STRING 
VARIABLES 

70 PRINT B$;BALANCE 
60 PRINT C«;CHECK 
80 N = BALANCE - CHECK 
100 PRINT NB$; N 
110 END 



n 
n 
n 
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Since this is a fairly long program for this stage of the game, make 
sure you put in everything correctly. For the computer, it is crit- 
ical that you distinguish between commas, semi-colons, periods, 
etc. Also, save it to disk. To play with it, change the values in 
lines 20 and 30. 

Let's quickly review what we have done. 

STEP 1. First we defined the real variables "BAL- 
ANCE" and "CHECK" (which your VIC-20 read as BA 
and CH since it cares only about the first two characters). 

STEP 2. Then we defined string variables B$, C$ and 
NB$ to use as labels in screen formatting. 

STEP 3. Finally, we printed out all of our information 
using our variables, with one new variable, "N", defined 
as the difference between BALANCE and CHECK 
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Note how we formatted the "OUTPUT" (what you see on your 
screen) of our PRINT statements. The semi-colon ";" between 
the variables accomplished two things: (1) it told the computer 
where one variable ended and the next began, and (2) it told the 
computer to PRINT the second variable right after the first one. 
Thus, it took the string variable NB$ 

NEM BALANCE IS $« 

and stuck the value of the real variable N right after the dollar 
sign (exactly where we placed the hatch #). Later we will go more 
into the formatting of OUTPUT, but for now let's take a quick 
look at using punctuation in formatting text. We will use the comma 
"," and semi-colon ";" and "new line" to illustrate basic format- 
ting. Put in the following little program: 

NEM <RETURN> 

10 PRINT ">CLR/HOME>" 

20 A* = "HERE" : B$ = "THERE" : C* = 

"WHERE" 

30 PRINT A«! : PRINT B*! : PRINT C*; 
! REM SEMI-COLONS 
35 PRINT 

40 PRINT A*» : PRINT B$ » : PRINT C$ » 
! REM COMMAS 

45 PRINT ! REM'A 'PRINT' BY ITSELF 
GIVES A 

47 REM VERTICAL 'SPACE' IN FORMATTING 
50 PRINT A* ! PRINT B$ : PRINT C* : 
REM 'NEW LINES' 
60 END 

Now RUN the program. As you should see, the little differences 
in lines 30, 40, and 50 made big differences on the screen. The 
first set is all crammed together, the second set is spaced evenly 
across the screen in two columns, and the third set is stacked one 
on top of the other. As we saw in the previous program, semi- 
colons put numbers and strings right next to one another. How- 
ever, using commas after a PRINTed variable will space output 
in groups of 2 across the screen, and using "new lines" in the form 
of colons or new line numbers will make the output start on a new 
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line. A PRINT statement all by itself will put a vertical "linefeed" 
between statements. Try the following little program to see how 
PRINT statements all by themselves can be used. 

NEW <RETURN> 

10 PRINT "-CCLR/HOME}" 

20 PRINT "WHENEMER YOU PUT IN A PRINT 
STATEMENT" 5 

25 REM NOTE PLACEMENT OF SEMI-COLON 
30 PRINT " ALL BY ITSELF* IT GIVES A 
'LINEFEED'." 
40 PRINT 

50 PRINT "SEE WHAT I MEAN?" 
60 END 

Play with commas, semi-colons, and "new lines" with variables 
and string variables until you get the hang of it. They are very 
important and are the source of program "bugs." 




tow ^rtjram /waj Aai/e 
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BUGS and BOMBS 

We've mentioned "bugs" and "bombs" in programs but never 
reaUy explained what they meant. "Bugs" are simply errors 
in programs that either create 7SYNTAX ERRORs or pre- 
vent your program frota. doing what you want it to do. 
"Debugging" is the process of removing "bugs." "Bombing" 
is what your program does when it encounters a 'Tiug." This 
is all computer lingo; if you use it in your conversations, 
people will think you really know a lot about computers or 
have a bug in your personality. 



n 

^ Input and Output (I/O) 

Input and output, often referred to as I/O, are ways of putting 
thhigs into your computer and getting it out. Usually we put IN 

^ information from the k^board, save it to disk or tape, and then 
later put it in from the disk drive or cassette recorder. When we 

^ want information OUT of the computer, we want it to go to our 
screen or printer. This is what I/O means. So far, we have entered 

1^ information IN the computer from the keyboard either in the 
Program or in the Immediate mode. Using the PRINT statement, 
we have sent information OUT to the screen. However, there are 
other ways we can INPUT information with a combination of 

O programming and k^board commands. Let's look at some of these 
ways and make our CHECKBOOK program a lot simpler to use. 
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iNPUT 



The INPUT command is placed in a program and expects some 
kind of response from the keyboard and then a RETURN. (A 
RETURN alone will also work, but the response is read as "".) 
It must be part of a program and cannot be used from the Imme- 
diate mode. (If attempted from the Immediate mode, there will 
be an 7ILLEGAL DIRECT ERROR message.) Let's look at a 
simple example: 

NEM <RETURN> 

10 PRINT "{CLR/HOME>" 

20 INPUT X : REM 'X' IS A NUMERIC 

VARIABLE SO ENTER A NUMBER 

30 PRINT X 

40 END 

RUN the program and your screen will go blank and a along 
with a bliiUdng cursor will sit there until you enter a number and 
then the computer will PRINT the number you just entered. Really 
interesting, huh? 

Let's try INPUTing the same information but using a slightly 
different format. The nice thing about INPUT statements is that 
ihey have some of the same features as PRINT statements for 
getting messages on the screen. Look at the following program: 

NEM <RETURN> 

10 PRINT "{CLR/HOME>" 

20 INPUT "ENTER YOUR AGE "i X 

30 PRINT "{CLR/HOME>" : PRINT s PRINT 

! PRINT 

40 PRINT "YOUR AGE IS "; X 

Now RUN the program; you will see that the presentation is a 
little more interesting. Also notice we did not put an END com- 
mand at the end of the program. In VIC-20 it is not necessary to 
enter an END command, but it is usually a good idea to do so. 
As we get into more advanced topics, we will see that our program 
can jump around, and the place we want it to END will be in the 
middle. We will need an END statement so that it will not crash 
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into an area we don't want it to go. So, while an END command 
really has not been necessary up to now, it is nevertheless a good 
habit to develop. 

Let's soup up our program a little more with the INPUT statement. 



NEM <RETURN> 



PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 



"■CCLR/HGME>" 
"ENTER YOUR NAME 



NA$ 



"ENTER YOUR AGE-->"! AGX 



10 
20 

30; 
40 
50 

60 INPUT "<RETURN> TO CONTINUE "; RT$ 
70 ? "{CLR/HOME>" :?:?:?: REM 
USING "?" AS SUBSTITUTES FOR PRINT 
80 PRINT NA$5 " IS "! AGX ! " YEARS 
OLD. " : REM BE CAREFUL WHERE YOU PUT 
YOUR QUOTE MARKS AND SEMI -COLONS IN 
THIS LINE 
S0 END 
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Now we're getting somewhere. You can enter information as 
numeric or string variables and the OUTPUT is formatted so you 
know what's going on. As your programs become larger and more 
complicated, it is very important to connect your string variables 
and nmneric variables in such a way that it is easy to see what 
the numbers on the screen mean. Let's &ce it, a computer wouldn't 
be very helpfiil if it filled the screen with numbers, and you did 
not know what they meant! Line 60 is the format for a pause in 
your program. RT$ doesn't hold any information, but since INPUT 
statements expect something firom the keyboard and a variable, 
RT$ (for RETURN) is as good as any. 

CETtIng Information 

The GET statement is something like the INPUT statement, except 
it is executed as soon as you hit a key. To see how it works try 
the following program. You should note that to be of use, GET 
must be put into a little "loop" routine. 

NEW <RETURN> 

10 PRINT MCLR/HOME>" 

20 ? s ? : ? : ? 

30 PRINT " ENTER A NUMBER FROM 1-9 "i 
35 GET N: IF N < 1 OR N > 9 THEN 35 : 
REM NOTE FORMAT IN THIS LINE 
40 ? : ? 

50 PRINT " HIT ANY KEY " ! 

55 GET K*: IF K$ = "" THEN 55 : REM 

USED AS A PAUSE UNTIL A KEY IS 

PRESSED 

60 ? "{CLR/HOME>" :?:?:?:? 
70 PRINT "YOUR NUMBER IS--> " 5 N 
80 END 

Notice that as soon as you hit a key, the GET statement is exe- 
cuted. '\^th an INPUT statement you first enter information and 
then press the RETURN key before the program executes. The 
good thing about the GET statement is that it is a faster way to 
enter and execute from the keyboard, but the problem is that you 
can enter only a single character before the program takes off 
again. If you press the wrong key there is no chance to correct 
the error before pressing the RETURN key as there is with the 
INPUT command. 
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READing In data 

A third way to enter data into a program is with READ and DATA 
statements. However, instead of entering the data through the 
keyboard, DATA in one part of the program is READ in firom 
another part. Each READ statement looks at elements in DATA 
statements sequentially. The READ command is associated with 
a variable which looks at the next DATA statement and places 
the numeric value or string in the variable. Let's look at the fol- 
lowing example: 

NEM <RETURN> 

10 PRINT "{CLR/HOME>" 

20 READ NA$ : REM READS NAME 

30 READ 0C$ : REM READS OCCUPATION 

40 READ SN : REM READS STREET NUMBER 

50 READ ST$ : REM READS STREET NAME 

60 READ CT$ : REM READS CITY 

70 READ SA$ : REM READS STATE 

80 READ ZIP : REM READS ZIP CODE 

S0 PRINT : PRINT : PRINT 

100 REM BEGIN PRINTING OUT MHAT 

'READ' READ IN. 

105 REM (BE CAREFUL TO PUT IN 

EVERYTHING 



107 
110 
120 
130 
140 
150 
1000 



REM EXACTLY 
PRINT NA* 



AS IT IS LISTED.) 



PRINT 
PRINT 
PRINT 
END 
DATA 



0C$ 

sn; 

CT$ 



ST$ 



SA$ 



ZIP 



DAVID GORDON* SOFTWARE 
TYCOON* 8343 » FULLBRIGHT AVE 
1010 DATA CHATSNORTH* CALIFORNIA t 
S1311 

In the DATA statements there is a conmia separating the various 
elements, unless the DATA statement is at the end of a line. If 
you have one of the elements out of place or omit a comma, strange 
things can happen. For example if the READ statement is expect- 
ing a numeric variable (such as the street address) and runs into 



71 



a string (such as the street name) you will get an error message. ^ 
Think of the DATA statements as a stack of strings and numbers. 
Each time a READ statement is encountered in the program the ^ 
first element of the DATA is removed from the stack. The next 
READ statement looks at the element on top of the stack, moving ^ 
from left to right. Go ahead and SAVE this program and let's put , , 
an error in it. (SAVE it first, though, so you will have a correct 
listing of how READ and DATA statements work.) ^ 

u 

LIST the program to make sure you have it in memory and enter 

the following line: O 

85 READ EX* O 

Now RUN the program and you should get an ?OUT OF DATA ^ 
ERROR IN 85. The error occurred because you have a READ 
statement without enough DATA statements (or elements); so, ^ 
be sure that 1) there are enough elements in your DATA state- 
ments to take care of your READ statements, and 2) the variables 
in your READ statements are compatible with the elements of ^ 
the DATA statements (i.e., your nimieric variables read numbers 
and string variables read strings). To repair your program, simply 
type in: 




1020 DATA MORD 
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This will give it something to READ. (Of course you could have 
^ DELETEd line 85.) 

If an element is a DATA statement (and is enclosed in quotation 
marks), all the characters inside the quotes are considered to be 
a single string element. For example, make the following changes 
in your program and RUN it. 

o 

145 PRINT EX* 
1^ 1020 DATA "10 DOWNING ST » LONDON* 45 » 

_ ENGLAND" 

— . Both numbers and commas were happily accepted by a READ 
■ statement with a string variable since they were all enclosed in 

^ quotation marks. Now remove the quote marks and RUN it again. 
This time it only printed up to the first comma, '10 DOWNING 

^ ST but the string variable EX$ had no problem accepting a numeric 
character! (However, since it read the 'lO* as a string, it cannot 
be used in a mathematical operation.) Experiment with different 
elements in the DATA statements to see what happens. Also, just 

O for fun, put the DATA statements at different places in the pro- 
gram. You will quickly find that they can go anywhere and are 

O READ in the order of placement in the program. 



Looping with FOR/NEXT 



n 

^ The FOR/NEXT loop is one of the most useful operations in BASIC 
^ programming. It allows the user to instruct the computer to go 
through a determined number of steps, at variable increments if 
^ desired, and execute them until the total number of steps is com- 
pleted. Let's look at a simple example to get started. 

n 

NEW <RETURN> 
O 1« PRINT HCLR/HOME>" 

20 NA* = "<YOUR NAME>" 
O 30 FOR I = 1 TO 10 ! REM BEGINNING OF 

LOOP 

O 40 PRINT NA* 

50 NEXT I : REM LOOP TERMINAL 
60 END 

n 
n 



Now RUN the program and you will see your name printed 10 
times along the left side of the screen. That's nice, but so what? 
OK, not too impressive, but we will see how usefiil this can be in 
a bit. First let's look at another simple illustration to show what's 
happening to "I" as the loop is being executed. 

NEM <RETURN> 

10 PRINT "{CLR/HOME>" 

20 FOR I = 1 TO 10 

30 PRINT I 

40 NEXT I 

As we can see when the program is RUN, the value of "I" changes 
each time the program proceeds through the loop. Think of a loop 
as a child on a merry-go-round. Each time the merry-go-round 
completes a revolution, the child gets a gold ring, beginning with 
one and ending, in our example, with 10. 



TRIVIA 

As you begin looking at more and more programs, you will 
see that the variable "I" is used in FOR/NEXT loops a lot. 
Actually, you can use any variable you want, but the "I" 
keeps cropping up. Like yourself, I was most curious as to 
why programmers kept using the letter "I", and after sev- 
eral moments of exhaustive research I found out. The "I" 
was the "integer" variable in FORTRAN (an early computer 
language), and it was used in "DO loops" since it was faster. 
The "I" Jilso can be interpreted to stand for "increment." I 
told you it was trivia. 



Having seen how loops function, let's do something practical with 
a loop. We'U fix up our CHECKBOOK program we've been play- 
ing with. 

In our souped up CHECKBOOK program, we are going to use 
variables in many ways. First, our FOR/NEXT loop will use a 
variable. Well stick with tradition and use "I". Second, we wiQ 
use a variable to indicate the number of loops to be executed. We 
will use N%, an integer variable. Third, we will use variables for 
the balance, the amoimt of the check, and the new balance. This 
program is going to be a little longer; so be sure to SAVE it to 
disk every 5 lines or so. For cassette, SAVE it about every 10 
lines. 
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NEM <RETURN> 

10 PRINT "<CLR/HOME>" 

20 CB$ = "CHECKBOOK" 

30 PRINT : PRINT : PRINT CB$ 

40 INPUT "HOW MANY CHECKS -->" ! tit 

50 INPUT "YOUR CURRENT BALANCE -->" ;BA 

60 REM BEGIN LOOP 

70 FOR I = 1 TO N% 

80 PRINT "BALANCE NOW = »" iBA 

90 PRINT "AMOUNT OF CHECK*"! I !"-->"! 

100 INPUT CK ! REM VARIABLE FOR CHECK 

110 BA = BA - CK s REM KEEPS A 

RUNNING BALANCE 

120 NEXT I : REM TOP OF LOOP 

130 ? "{CLR/HOME>" : REM CLEAR SCREEN 

WHEN ALL CHECKS ARE ENTERED 

140 PRINT : PRINT : PRINT 

150 PRINT "YOU NOW HAVE *" 5 BA ! "IN 

YOUR ACCOUNT" 

1B0 PRINT : PRINT " THANK YOU AND 
COME AGAIN " 
170 END 

Our checkbook program is coining along, making it easier to use, 
and that is the purpose of computers. Now, let's look at something 
else with loops. 

Nested Loops 

With certain applications, it is going to be necessary to have one 
or more FOR/NEXT loops working inside one another. Let's look 
at a simple application. Suppose you had two teams with 10 mem- 
bers on each team. You want to make a team roster indicating the 
team number (#1 or #2) and member number (#1 through #10). 
Using a nested loop, we can do this in the following program: 

NEW <RETURN> 

10 PRINT "{CLR/HOME>" 

20 FOR T = 1 TO 2 : REM T FOR TEAM « 

30 FOR M = 1 TO 10 : REM M FOR 

MEMBER » 
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40 PRINT "TEAM «" ; T ; "PLAYER «" 5 M 
50 NEXT M 
60 NEXT T 
70 END 

In using nested loops, it is important to keep the loops straight. 
The innermost loop (the "M loop" in our example) must not have 
any other FOR or NEXT statement inside of it. Think of nested 
loops as a series of fish eating one another, the largest fish's mouth 
encompassing the next largest and so forth on down to the small- 
est fish. 




Look at the following structure of nested loops: 

FOR A = 1 TO N 
FOR B = 1 TO N 
FOR C = 1 TO N 
FOR D = 1 TO N 
NEXT D 
NEXT C 
NEXT B 
NEXT A 
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n 

Note how each loop begins (a FOR statement is executed) and is 
^ tenninated (encounters a NEXT statement) in a ''nested" sequence. 
^ If you have ever stacked a set of different sized cooking bowls, 
^ each one fits inside the other; that is because the outer edge of 

one is larger than the next one. Likewise, in nested loops, the 
^ "edge" of each loop is "larger" than the one inside it and "smaller" 

than the one it is inside. 

n 

stepping Forward and Backwards 

^ Loops can go one step at a time, as we have been using, or they 
^ can step at different increments. For example, the following pro- 
gram "steps" by 10. 

n 

NEM <RETURN> 
10 PRINT "{CLR/HOME>" 
20 FOR I = 10 TO 100 STEP 10 
D 30 PRINT I 

40 NEXT I 

n 

This allows you to increment your count by whatever you want. 
^ You can even use variables or anything else that has a numeric 
^ value. For example 

n 
n 
n 

^ Go ahead and RUN the program. But WAIT!!, you say. In line 50 
you detect a BUG, a typo and big mistake. After the word NEXT, 
there should be an "I" but there is none, right? Well, actually, in 
VIC-20 BASIC you really do not need it, and you can save a little 
memory if you use NEXT statements without the variable name. 
Even in nested loops, as long as you put in enough NEXT state- 

O ments, it is possible to run your program without variable names 
after NEXT statements. However, it is good programming prac- 

O tice to use variable names after NEXT statements, especially in 

_ nested loops so that you can keep everything straight. 

r) 



NEM <RETURN> 

10 PRINT "{CLI?/HOME>" 

20 K = 5 : N = 25 

30 FOR I = K TO N STEP K 

40 PRINT I 

50 NEXT 



n 
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It is also possible to go backwards. Try this program: 
NEW < RETURN > 

10 FOR I = 4 TO 1 STEP -1 

20 PRINT "FINISHING POSITION IN 

RACE ="5I 

30 NEXT I 

As we get into more and more sophisticated (and useful) pro- 
grams, we will begin to see how all of these different features of 
VIC-20 BASIC are very useful. Often, you may not see the prac- 
ticality of a command initially, but when you need it later on, you 
will wonder how you could program without it! 




IN CASE YOU WONDERED 

You may have noticed that the lines inside the loops were 
indented. If you tried that on your VIC-20 you probably 
found that as soon as you LISTed your program, all the 
indentations were gone. Unfortunately, that will happen, 
and without special utilities, there's nothing you can do about 
it. However, don't worry about it. It is a programming con- 
vention for clarity to indent or "tab" loops to make it easier 
to understand what the program is doing. It does not affect 
your progiram at all. 
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counters 

^ Often you will want to count the number of times a loop is executed 
and keep a record of it in your program for later use. For example, 

^ if you run a program that loops with a STEP of 3, you may not 
know exactly how many times the loop will execute. To find out, 
programmers use "counters," variables which are incremented, 

^ usually by + 1, each time a loop is executed. The following pro- 
gram illustrates the use of a counter: 

n 

NEM <RETURN> 
^ 10 PRINT "{CLR/HOME>" 

20 FOR I = 3 TO 39 STEP 3 
30 PRINT I 

40 N « N + 1 : REM THIS IS THE 

O COUNTER 

50 NEXT I 

O 60 PRINT : PRINT "LOOP EXECUTED N 

_ } "TIMES." 

_ The first time the loop was entered, the value of "N" was 0, but 
when the program got to line 40, the value of 1 was added to N 

— s to make it 1 (i.e., + 1 = 1). The second time through the loop, 
the value of N began at 1, then 1 was added, and at the top of the 

^ loop, line 50, the value of N was 2. This went on until the program 
exited the loop. Then, after all the looping was finished, presto!, 
your N told you how many times the loop was executed. Of coiurse, 
counters are not restricted to counting loops, and they can be 

f*) incremented by any value, including other variables, you need. 
For example, change line 40 to read: 

n 

n 

RUN your program again and your "counter total" will be a good 
^ deal higher. 

O 

n 

n 
n 



40 N = N + (I * 2) 




SUMMARY 

This chapter has begun to show you the power of your computer, 
and we have really begun programming. One of the most impor- 
tant concepts we have covered is that of the "variable." The sig- 
nificant feature of variables is that they "vary" (change depending 
on what your program does). This is true not only with numeric 
variables, but also with string variables. The various input com- 
mands show how we enter values or strings into variables depend- 
ing on what we want the computer to compute for us. Finally, we 
have learned how to loop. This allows us, with a minimal amount 
of effort, to tell the computer to go through a process several 
times with a single set of instructions. With loops, we can set the 
parameters of an operation at any increment we want, and then 
sit back and let our VIC-20's go to work for us. 

However, we have only just begun programming! In the next 
chapter we will begin getting into more commands and operations 
which allow us to delve deeper into the VIC-20's capabilities and 
make our programming jobs easier. The more commands we know, 
the less work it is to write a program. 



80 



CHAPTER 4 



Branching Out 

Introduction 

In this chapter we will begin exploring new programming con- 
structs that will geometrically increase your programming ability. 
We will be examining some more sophisticated techniques but, by 
taking each a step at a time, you will begin using them with ease. 
Later, when you are developing your own programs, be bold and 
try out new commands. One problem new programmers have is 
a tendency to stick with the simple commands they have learned 
to get a job done. After all, why use "complicated" commands to 
do what simpler ones can do. Well, the answer to that has to do 
with simplicity. If one "complicated" command can do the work 
of 10 "simple" commands, which one is actually simpler? As you 
get into more and more sophisticated programming applications, 
your programs can become longer and subject to more bugs. The 
more commands you have to sift through, the more difficult it is 
to find the bugs; therefore, while it is perfectly OK to write a long 
program using a lot of simple commands while you're learning, 
begin thinking about short-cuts through the use of the more 
advanced commands. 

Related to this issue of maximizing your knowledge of different 
commands is that of letting the computer perform the computing. 
This may sound strange at first, but often novices will figure 
everything out for the computer and use it as a glorified calcula- 
tor. In the last chapter you may remember we set up a counter 
to count the times a loop was executed when we used a STEP 3 
loop. We could have figured out how many loops were executed 
instead of letting the computer do it with the counter, but that 
would have defeated the purpose of programming! So, as you 
learn new commands, see how they can be used to perform the 
calculations you had to work out yourself. 
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BRANCHING 

So far all of our programs have gone straight from the top to the 
bottom with the exception of loops. However, if our VIC-20 is to 
do some real decision making, we must have some way of giving 
it options. When a program leaves a straight path, it is referred 
to as either "looping" or "branching." We already know the pur- 
pose of a loop, but what is a branch? Well, using the IF/THEN 
and GrOTO commands, we will see. (In fact, with the GET state- 
ment in the last chapter, we sneaked these commands in.) Con- 
sider the following program: (NOTE: By now you should know 
enough to dear memory with a NEW command, so I won't keep 
on insulting your intelligence by putting them at the beginning of 
each program.) 
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n 

— . 10 PRINT "•£CLR/HOME>" 

^ 20 PRINT "CHOOSE ONE OF THE" 

^ 30 PRINT "FOLLOWING BY NUMBER: " 

a0 PRINT 

50 PRINT "1. BANANAS" 
60 PRINT "2* ORANGES" 
O 70 PRINT "3 ♦ PEACHES" 

80 PRINT "4. WATERMELONS" 
30 PRINT 

100 INPUT "WHICH? "i X 
O 110 PRINT "-CCLR/HOMEJ" 

120 IF X » 1 THEN GOTO 200 
130 IF X = 2 THEN GOTO 300 
M0 IF X = 3 THEN GOTO 400 
150 IF X = 4 THEN GOTO 500 
1B0 GOTO 10 : REM THIS IS A 'TRAP' TO 
MAKE SURE THE USER CHOOSES 1» 2t 3t 
OR 4 

200 PRINT "BANANAS" ! END 
300 PRINT "ORANGES" : END 
400 PRINT "PEACHES" : END 
500 PRINT "WATERMELONS" : END 



n 
n 



O As you can see, your computer "branched" to the appropriate 
place, did what it was told and ENDed. Not very inspiring I 
^ admit, but it is a clear example. Now let's try something a little 
^ more practical for your kids to play with in their math homework. 
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WHAT'S IN A NAME? 

Kids (of all ages) like to have thdr names displayed. See if 
you can change the above program so that it asks the child's 
name; then when the program responds with either a cor- 
rection or afSrmation command, it mentions the child's name. 
(e.g., THAT'S RIGHT! VERY GOOD, SAM ). Use «NA$" 
as the name variable. 



10 PRINT "<CLR/HQME>" 

20 AG«=" ADDITION GAME ": PRINT AG$ 

30 PRINT : PRINT ^ 

40 INPUT "FIRST NUMBER-->" ! A 

50 PRINT 

60 INPUT "SECOND NUMBER --> " > B 
70 PRINT 

80 PRINT "WHAT IS " 5 A ! "+" i B ; : 
INPUT C 

S0 IF C = A + B THEN GOTO 200 
100 PRINT s PRINT "THAT'S NOT QUITE 
IT." : PRINT "TRY AGAIN." s PRINT 
110 GOTO 80 

200 PRINT "THAT'S RIGHT!" : PRINT ^ 
"VERY GOOD" 

210 PRINT <U 
220 PRINT "MORE? (Y/N): "; 

230 GET AN$ : IF AN*="" THEN GOTO 230 ^ 
240 IF AN* = "Y" THEN PRINT "<CLR/ 
HOME>" : GOTO 30 ^ 
250 PRINT "{CLR/HOME>" : PRINT s , 
PRINT : PRINT ^ 
2B0 PRINT "HOPE TO SEE YOU" : PRINT 
"AGAIN SOON" : END 

As you can see, the more commands we learn, the more fim we ^ 
can have. Just for fiui, change the program so that it will handle 
multiplication, division, and subtraction. 



Let's look carefully at our program to learn something about IF/ 
THEN statements. First, note in line 240, the branch is to clear 
the screen (PRINT"{CLR/HOME}") if AN$ = "Y". If any other ^ 
response is encountered it ends the program. You may ask why 
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^ the program did not branch to line 30 regardless of the response 
^ since the "GOTO 30" command is after a colon, making it a new 

line. Good point. The reason for that is after an IF statement, 
^ when the response or condition is null, the program immediately 
<^ drops to the next LINE NUMBER, That is, any statements after 

a colon in a line beginning with an IF statement will be executed 

only if the condition of the IF statement is met. Secondly, the 

condition of AN$ is queried as being a "Y" and not simply a Y 
^ without quotes. Since the user INPUTs a Y and not a "Y", we 

assume that the program will accept a Y, but remember AN$ is 
^ a "string" and not a numeric variable. Therefore in the setting of 

the con^tional, we must remember what kind of variable we are 
O using. On the other hand, if we used a numeric variable, such as 

AN or AN%, we could have entered a line such as, 

O 



IF AN - 1 THEN . . . . 

RELATIONALS 



SYMBOL MEANING 



^ So far we have used only " = " to determine whether or not our 
pr(^;ram should branch. However, there are other states, referred 

1^ to as "relationals," that we can also query. The following is a 
complete list of the relationals we can employ: 

= Equal to 

O < Less than 

> Greater than 

^ <> Not equal to 

> = Greater than or equal to 

< = Less than or equal to 

Now let's play with some of these, and then well examine them 
^ for their Ml power. Here are some quickie programs: 

10 PRINT "{CLR/HOME>" 

20 INPUT "NUMBER 1 --> " !A 
O 30 INPUT "NUMBER 2--> "!B 

40 IF A > B THEN GOTO 100 
O 50 IF A < B THEN GOTO 200 

60 IF A - B THEN GOTO 300 
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100 PRINT "NO. 1 GREATER THAN NO. 2" 
: END 

200 PRINT "NO. 1 LESS THAN NO. 2" s 
END 

300 PRINT "NO. 1 EQUAL TO NO. 2" 

10 PRINT "{CLR/HOME>" 

20 INPUT "CONTINUE (Y/N)"? AN$ 

30 IF AN$ <> "Y" THEN END 

40 GOTO 10 

10 PRINT "{CLR/HaME>" 

20 INPUT "HOW OLD ARE YOU? "5 AG% 

30 IF AG% >= 21 THEN GOTO 100 

40 PRINT "<CLR/HOME>" : PRINT : PRINT 

"SORRY* YOU'VE GOT" 

50 PRINT "TO BE 21 OR OLDER" 

60 PRINT "TO COME IN HERE!" : END 

100 PRINT "{CLR/HOME>" : PRINT s 

PRINT "WHAT WOULD YOU LIKE?" 



n 



n 
n 
n 



A = 10 : B « 20 : PRINT A = B 



OK, you have the idea how relational can be used with IF/THEN 
conunands; note they work with strings as well as numeric vari- 
O ables. However, there is another way to use relationals. Try the 
following from the Immediate mode: 

n 
n 

^ Your computer responded with a 0, right? This is a logical oper- 
ation. If a condition is false, your VIC-20 responds with a 0, but 

^ if it is true, it responds with a - 1. Now try the following little 
program. 

n 

10 PRINT "<CLR/HOME>" 
^ 20 A = 10 

30 B = 20 
O 40 C = A > B 

50 PRINT C 

n 

When you RUN the program, you again get a 0. This is because 
the variable C was defined as A being greater than B. Since A 
was less than B, the variable C was or "false." Now, let's take 
^ it a step further: 



10 PRINT "<CLR/HOME}" 
20 A = 10 
30 B = 20 
40 C = A > B 

50 IF C = THEN PRINT "A IS LESS 
^ THAN B" : END 

60 IF C = -1 THEN PRINT "A IS GREATER 
O THAN B" 

^ Later, we will see further applications of these logical operations 
of the VIC-20. For now, though, it is important to understand 
that a true condition is represented by a "- 1" and a false con- 
dition by a "0". 

n 
n 
n 
n 
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u 

AND/OR/NOT ^ 

Sometimes we need to set up more than a single relational. Sup- 
pose, for example, that you are organizing your finances into three 
categories of expenses: (1) Under $10, (2) between $10 and $100 
and 3) over $100. With our relationals it would be simple to com- 
pare input under $10 and over $100. But what if we wanted to do 
something in between. In this case we might have some difficulty 
without added commands. The AND, OR and NOT statements 
allow us to set ranges with our relationals. 

AND If all conditions are ^ 

met then true 

OR If one condition is ^ 

met then true 



NOT If condition is not 

met then true. 



For example: 



10 PRINT "{CLR/HOME>" 
20 INPUT "ENTER AMOUNT -->$"! A 
30 IF A < 10 THEN 100 
40 IF A > 10 AND A <= 100 THEN 200 
50 IF A > 100 THEN 300 ^ 
100 PRINT " PETTY CASH " : GOTO 400 
200 PRINT " GENERAL EXPENSES" :GOTO400 



In line 40 we set the conditional branch to be BOTH greater than 
10 and equal to or less than 100. The variable "A" had to meet 
both conditions to branch. Similarly, in line 420, using the AND ^ 
statement again, we made sure that the response had to be either 

'T"or"N". ^ 

If you are very perceptive, you may have asked yourself about ^ 
some fishy format in the program. There are conditional IF/THEN ^ 
lines that simply say THEN 100 and stuff like that. What's going 
on? Shouldn't there be a GOTO statement there? Again, we have ^ 
slipped in another feature of VIC-20 BASIC. When using IF/ 
THEN statements, it is possible to drop the GOTO on a branch ^ 
and simply put in the line number. However, note that we have 

U 
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used GOTO statements elsewhere in the program where no con- 
ditional is used within the same line or within a single set of colons. 
Until you become more familiar with programming you might 
want to keep your GOTO statements after IF/THEN statements, 
but they are not required. 

Another question you may have had involves the AND statement 
in line 420. In normal English if we say something is not "Y" or 
"N" we mean that it must be one or the other. However, in pro- 
gramming, if we use OR, we are telling the program to branch if 
either condition is met. Thus, if we wrote line 420 as, 

420 IF AN* < > "Y" OR AN* < > "N" 
THEN PRINT "ANSWER 'Y' OR 'N' PLEASE " 
: GOTO 400 

the program would have branched if AN$ was not equal to EITHER 
"Y" or "N". Thus, for example, if we responded with a "Y", that 
"Y" would have NOT been equal to "N" and so the program would 
have branched to "ANSWER 'Y' OR 'N' PLEASE"— hot what 
we intended. To check this, change the AND to an OR in Ime 420 
and RUN the program. Now, let's use the OR and NOT state- 
ments in a program: 

10 PRINT "-CCLR/HOME}" 

20 READ A 

30 READ B 

40 READ C 

50 DATA 10»20>30 

B0IFA+B=CORA<BORA-B=C 
THEN 100 
70 END 

100 PRINT "•£CLR/HOME>" : PRINT "ONE 
OF 'EM" 

110 PRINT "MUST BE TRUE" 

Looking at line 60 we can see that A - B does not equal C; 
however, A + B does equal C and A is less than B. Using the 
OR statement, only one statement has to be true to branch. Now 
let's try the following program: 
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10 PRINT "-CCLR/HOME}" 

20 READ A : READ B : READ C 

30 DATA 10»20»30 

40Z=A-B=C 

50 IF NOT Z THEN 100 

60 END 

100 PRINT "THAT'S RIGHT!" 

110 PRINT "A - B = C IS NOT RIGHT!" 

120 PRINT "DID I SAY THAT RIGHT?" 

As can be seen from the example, it is possible to use the "nega- 
tion" of a formula to calculate a branch condition. In most cases, 
you will use < > (not equal) or the positive case, but at other 
times it will be simpler to employ NOT. 

SUBROUTINES 

Often in programming there is some operation you will want your 
computer to perform at several different places in the program. 
Now, you can repeat the instructions again and again or use GOTO's 
all over the place to return to your original spot after branching 
to the operation. On the other hand, you can set up "subroutines" 
and jump to them using GOSUB and get back to your starting 
point using the RETURN command. Up to a point the GOSUB 
command works pretty much like the GOTO command since it 
sends your program bouncing off to a line out of sequence. Also, 
the RETURN comutnand is something like GOTO since it also 
sends your program to an out-of-sequence line. However, the 
GOSUB/RETURN pair is imique in what it does. Let's take a 
look at a simple example to see how it works: 

10 PRINT "<CLR/HOME>" 

20 A$ = "HELLO" : GOSUB 100 

30 A$ = "HOW ARE YOU TODAY?" : GOSUB 

100 

40 A$ = "I'li FINE" : GOSUB 100 

50 END 

100 PRINT A$ 

110 RETURN 
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n 



Our example shows that a GOSUB statement works exactly like 
a command on the line itself except that it is executed elsewhere 
in the program. The RETURN statement brings it back to the 
next statement after the GOSUB statement. Using the GOSUB/ 
RETURN pair it is much easier to weave in an out of a program 
than using GOTO since the RETURN automatically takes you 
back to the jump-off point. 

To better illustrate the useftdness of GOSUB, let's change line 
100 to something more elaborate. Try the following. (NOTE: We 
will be getting ahead of ourselves a bit with this example, but the 
following is meant to illustrate something very useful in GOSUB's.) 

100 L = LEN (A$)/2 : PRINT TABdl - L) ; A$ 

Now when you RUN the program, all of your strings are cen- 
tered. As you can see, a single routine handled all of the centering, 
and instead of having to rewrite the routine every time you want 
a string centered all you just used a GOSUB to line 100. 



n 
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NEATNESS COUNTS 
We really have not discussed the structure of programs too 
much up to this point. In part, this is because we have not 
really had the need to do so. However, as our instruction 
set grows, so too does the possibility for errors, and by now 
if you haven't made an error, you haven't been li^ying in 
these programs! One way to minimize errors, espedally using 
GOSUB's, is to organize them into coherent "blocks." Basi- 
cally, a "block" is a subroutine within a range of lines. For 
example, you might block your subroutines by Ws or 1000's, 
depending on how long the subroutines are. Thus, you might 
have subroutines beginning at lines 500, 600 and 700. It 
doesn't matter if the subroutine is 1 line or 10 lines, as long 
as it is confined to the block, it is easier to debug, easier for 
others and you to understand what is happening in the pro- 
gram, and in general a good programming practice. 



Computed goto and GOSUB 

Now we're going to get a little fancier, but in the long run, it will 
result in clearer and simpler programming. As we have seen, we 
can GOTO or GOSUB on a "conditional" (e.g., IF A = 1 THEN 
GOTO 200). The easier way to make a conditional jump is to use 
"computed" branches using the ON statement. For example. 



10 PRINT "{CLR/HOME>" 

20 INPUT "A NO. FROM 1-5 " 5 A 

30 IF A < 1 OR A > 5 THEN 20 : REM 

TRAP 

40 ON A GOSUB 100 *200 »300 «400 »500 ; 

REM COMPUTED GOSUB 

50 PRINT "CONTINUE? (Y/N)" 5 : 

60 GET AN* : IF AN$ = " " THEN 60 

70 IF AB* < > "Y" THEN END 

80 GOTO 10 

100 PRINT "ONE" : PRINT : RETURN 
200 PRINT "TWO" s PRINT ! RETURN 
300 PRINT "THREE" s PRINT : RETURN 
400 PRINT "FOUR" : PRINT : RETURN 
500 PRINT "FIVE" : PRINT : RETURN 
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n 



n 
n 
n 



70 IF A = 1 THEN GOSUB 100 
80 IF A = 2 THEN GOSUB 200 
etc • 



O The format for a computed GOSUB/GOTO is to enter a variable 
following the ON command. The program will then jump the num- 
ber of "commas" to the appropriate line number. If a 1 is entered, 

_ it takes the first line number, a 2, the second, and so forth. It's a 
lot easier than entering 

n 
n 

However, it is necessary to use relatively small numbers in the 
"ON" variable since there is a limited number of subroutines. If 
your program is computing larger numbers, convert the larger 
O numbers into smaller ones by changing the variables. For example: 

O 10 PRINT "{CLR/HOME>" 

20 INPUT "ANY NUMBER -->" 5 A 
^ 30 IF A < 100 THEN B = 1 

40 IF A >= 100 AND A < 200 THEN B » 2 
50 IF A >= 200 THEN B = 3 
60 ON B GOSUB 100 > 200 » 300 : REM 
COMPUTED GOSUB ON 'B' (VARIABLE 
70 PRINT "CONTINUE (Y/N)"5 : GET AN$ 
! IF AN$ < > "Y" THEN END 
80 GOTO 10 

100 PRINT "LESS THAN 100" : RETURN 
200 PRINT "MORE THAN 100 BUT LESS 
THAN 200 " : RETURN 
D 300 PRINT "MORE THAN 200" : RETURN 

n 

RUN the program and enter any number you vmit. Since the 
program is branching on the variable B and not on A (the INPUT 
^ variable), you will not get an error since the greatest value of B 
can be only 3. 

Now let's get back to relationals and see how they can be used 
^ with computed GOSUBs. Remember, in using relationals, the 
only niunbers we get are 0's and -I's for false and true respectively. 
However, we can use these 0's and -I's just like regular numbers. 
Try the following: 

n - 
n 
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10 PRINT "<CLR/HOME>" 
20X=1 :Y=2:Z=3 
30 A = X < 2 
40 B = Y > Z 
50 C = Z > X 

60 PRINT " A + A =" ; A + A 

70 PRINT : PRINT " A + B =" i A + B 

80 PRINT : PRINT " A + B + C =" ; A 

+ B + C 

90 END 

Now, before you RUN the program, see if you can determine 
what will be printed by lines 60, 70 and 80. Once you have made 
a determination, RUN the program and see what happens. Go 
ahead and do it. How'd you do? Let's go over it step by step. 

1. Since X is less than Z, A will be "true" with a value 
of one(-l). Therefore A + A(-l + - 1) will equal -2. 

2. Since Y is not less than Z , (Y = 2 and Z = 3, remem- 
ber) B will be "false" with a value of 0. Therefore, A + 
B(-l + 0) will total -1. 

3. Since Z is greater than X, C will be "true" with a value 
of -1. Therefore A + B + C(-l + 0+ -l)win equal 
-2. 

If you got it right, congratulations! If not, go over it again. 
Remember, very simple things are happening, so don't look for a 
complicated explanation! 

Now that we see how we can get numbers by manipulating rela- 
tionals, let's use them in computed GOSUBs. The following pro- 
gram shows how: 

10 PRINT "{CLR/HOME>" 

20 PRINT "HON BIG MAS" 

25 INPUT " THE HOME CROWD?"; HC 

30 R = 1 + (HC >= 500) + (HC >= 1000) 

40 IF R = THEN R = 2 

50 IF R = -1 THEN R = 3 
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60 ON R GOSUB 100»200»300 

70 PRINT ! INPUT "CONTINUE (Y/N) "! 

AN$ 

80 IF AN* < > "Y" THEN END 
90 GOTO 10 

100 PRINT "{CLR/HOME}" : PRINT "THE 
HOME CROWD WAS SMALL" 

110 PRINT " - LESS THAN 500" : RETURN 
200 PRINT "{CLR/HOME>" : PRINT "THE 
HOME CROWD WAS" 

210 PRINT "A PRETTY GOOD SIZE - " 
220 PRINT "BETWEEN 500 AND 1000." : 
RETURN 

300 PRINT "<CLR/HOME>" : PRINT "THE 
HOME CROWD WAS" 

310 PRINT "BIG-1000 OR OMER" : RETURN 

program is hinged on line SCKs formula or algorithm. Let's 
how it works: 

1. There are 3 conditions: 

a. HC is less than 500 

b. HC is 500 or more but less than 1000 

c. HC is 1000 or greater. 

2. If the first condition exists, both HO = 500 and HC 
> = 1000 would be false. Thus 1 + + = 1. Therefore 
R = 1. 

3. If HC is > = 500 but less than 1000 then HO = 500 
would be true but HC > = 1000 would be false. Thus we 
would have l + (-l) + = 0. Convert the value of R 
to 2. 

4. Finally if HC is both > = 500 and > = 1000 then our 
formula would result in 1 + ( - 1) + ( - 1) = - 1. Convert 
the value of R to 3. 
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REST AREA 

At this point let's take a little rest and reflection. In pro- 
granuning, there is no such thing as THE RIGHT WAY and 
THE WRONG WAY. Certain programs are more efficient, 
faster or take less code and memory than others, but the 
computer makes no moral judgments. If a program does 
what you want it to do, no matter how slowly it does it or 
how long it took you to write it, it is "right." In the above 
example we used an algorithm with relationals to do some- 
thing we could have done with more code. Don't expect to 
use such formulas right off the bat unless you have a strong 
background in math. If you're not used to using algorithms, 
don't expect to understand their full potential right away. 
The one we used is relatively simple, and you wiU find far 
more elaborate ones as you begin looking at more programs. 
The main point is to keep plugging ahead. With practice you 
will learn all kinds of little shortcuts and formulas, but if 
you get stuck along the way, just keep on going. Remember, 
as long as you can get your program running the way you 
want it to, you're doing the "right" thing. 



U 

Strings and Relationals 

Before we leave our discussion of computed GOTOs and GOSUBs ^ 
with relationals, let's take a look at how relationals handle strings. 
Try the following: 

A* = "A" : B$ = "B" : PRINT B$ > A$ 
<RETURN> O 

Surprised? In addition to comparing numeric variables, relation- 
als can compare alphabetic string variables with "A" being the 
lowest and "Z" the highest. (Actually, any string variables can 
be compared, but we will look at just the alphabetic ones here.) 
So if we ask is B$ greater than A$, we get a " - 1" (true) since ^ 
B$ vras a B and A$ was an A. Now you might be wondering what 
on earth you could possibly want to do with this knowledge. Well, ^ 
in sorting strings (like putting names in alphabetical order) such 
an operation is crucial. Later on we will show you a routine for 
sorting strings, but for now let's make a simple string sorter for ^ 
sorting two strings. 
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10 PRINT "<CLR/HOME>" 

20 INPUT "WORD 1 --> " i A* 

30 INPUT "WORD 2-->" ; B$ 

a9 PRINT : PRINT : PRINT 

50 IF A* < B$ THEN PRINT A* : PRINT B$ 

60 IF A* > B$ THEN PRINT B* : PRINT A* 



Just what you needed! A program that will arrange two words 
into alphabetical order! 



ARRAYS 

The best way to think about arrays is as a kind of variable. As 
we have seen, we can name variables A, D$ , KK%, XI and so 
forth. An array uses a single name with a number to differentiate 
different variables. Consider the following two lists, one using 
regular string variables and the other using a string array: 

STRING VARIABLE STRING ARRAY 



P$ = 'TIG" AM$(1) = 'TIG" 

C$ = "CHICKEN" AM$(2) = "CHICKEN" 

D$ = "DOG" AM$(3) = "DOG" 

H$ = "HORSE" AM$(4) = "HORSE" 

Now if we PRINT H$ we'd get HORSE and if we PRINT AM$(4) 
we'd also get HORSE. Likewise, we could use arrays for numeric 
variables such as: 



A(l) 


= 1 


A(2) 


= 2 


A(3) 


= 3 


A(4) 


= 4 etc. 



Again, you may well ask, "So what? Why not use just regular 
numeric or string variables instead of arrays?" Well, for one thing, 
it can be a lot easier to keep track of what you're doing in a 
program using arrays, and for another, it can save a lot of time. 
Consider the foUowing program for INPUTing a list of 10 names 
using a string array. 
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10 PRINT "<CLR/HOME>" 
20 FOR I = 1 TO 10 

30 PRINT "NAME «"5 I 5 : INPUT NA*(I) 
40 NEXT I 

50 FOR I = 1 TO 10 s PRINT NA*(I) 
60 NEXT I 

Now write a program that does the same thing using non-array 
variables. It would take a lot more code to do so, but go ahead 
and try it. Use the variables N0$ through N9$ for the names just 
to see what it would take. 

If you re-wrote the program, you would see how much time using 
arrays saved, but before going on let's take a closer look at how 
the program worked with the FOR/NEXT loop and arr^ variable: 

1. The FOR/NEXT loop generated the numbers sequen- 
tially so that the arrsQr would be the following: 

FOR I = 1 TO 10 

NA$(1) <-First time through loop 

NA$(2) ♦-Second tune through loop 

NA$(3) <-Third time through loop 

NA$(4) etc. 

NA$(5) 

NA$(6) 

NA$(7) 

NA$(8) 

NA$(9) 

NA$(10) 
NEXT I 

2. Each string INPUT by the user was stored in a 
sequentially numbered array variable. 

3. Output, using the PRINT statement, was generated 
by the FOR/NEXT loop sequentially supplying numbers 
to be entered into array variables. 

Now, to get used to the idea that an array variable is a variable, 
enter the following: 
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n 

O A(10) = 432 : PRINT A(10) <RETURN> 

XYZO) = Z.fl32 : PRINT XYZO) <RETURN> 
R2DZ$(1) = "BEEP!" + CHR$(7) : 
PRINT R2DZ*(1) <RETURN> 
J%(5) = 3Z1 ! PRINT JX(5) <RETURN> 

OK, maybe it didn't take all that to convince you that an array is 
^ a variable with a number in parentheses after it, but it's easy to 

forget and think of arrs^s as something more exotic than ihey 
^ are. 

The DiMension of an Array 

If you've been very observant, you may have noticed we haven't 

gone over the number 10 in our arr^ examples. The reason behind 
^ that is because once our array is larger than 10 we have to use 

the DIM (dimension) statement to reserve space for oxxr array. 
^ (Actually 11 array elements are automatically dimensioned - to 

10.) The following is an example of the format for DIMensioning 

an array. 

O 10 PRINT "<CLR/HOME>" 

Z0 DIM AB(150) : REH DIMENSION OF 
^ ARRAY VARIABLE 'AB ' 

30 FOR I = 1 TO 150 

40 AB(I) = I 

50 NEXT I 
^ 60 FOR I = 1 TO 150 

^ 70 PRINT AB(I) » 

80 NEXT I 

RUN the program as it is written. It should work fine. Now delete 
^ line 20 by simply entering 20. (Remember how we learned to 
delete single line numbers by entering that number?) Now RUN 
the program, and you will get an error for not DIMing the ARRAY. 
(?BAD SUBSCRIPT ERROR IN 40 - that's because there was 
no DIM statement in Line 20.) So, whenever your arrays are 
going to have more than 11 values from tol0, be sure to DIM 
^ them. 

O 
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BETTER SAFE THAN SORRY DEPT. 
Many programmers always DIM arrays, regardless of the 
number in the array. It is perfectly all right to do so, and 
statements such as DIM X$(3) or DIM N% (5) are valid. 
Often, when copying programs from books or magazines, 
you may run across these lower level DIM statements because 
the programmer thinks it's a good idea to DIM all arrays as 
part of programming style and clarity. Furthermore, you 
can save memory space by using the minimal amount of 
DIMension space; if the program is large enough, it may be 
necessary to DIM an array at less than 11. Finally, some 
versions of BASIC require all arrays to be DIMensioned. 



COLUMN COLUMN COLUMN 
#1 #2 #3 



Mum-dlmenslonal Arrays ^ 

So far, all we have examined are single dimension arrays. How- ^ 
ever, it is possible to have arrays with two or more dimensions. 
Let's begin with two-dimensional arrays and examine how to use 
arrays with more than a single dimension. 

The best way to think of a two-dimensional array is as a matrix. 
For example, if our array ranged from 1 to 3 on two dimensions ^ 
the entire set would include: A(l,l) A(l,2) A(l,3) A(2,l) A(2,2) 
A(2,3) A(3,l) A(3,2) and A(3,3). By laying it out on a matrix, we 
can think of the first number as a row and the second as a column. 
This makes it much clearer: 



R0W#1 A(l,l) A(l,2) A(l,3) ^ 

ROW #2 A(2,l A(2,2) A(2,3) 

ROW #3 A(3,l) A(3,2) A(3,3) ^ 

Again, it is important to remember that each element in the array W 
is simply a type of variable. To drum that into your head do the 
following: ^ 

XV*(3»1) = "I'M A UARIABLE" : PRINT 
XU*(3»1) <RETURN> 

JKX(2.2) = 21 : PRINT JKX <RETURN> ^ 

100 ^ 

o 



MM (1»1) = 3.212 : PRINT MM(1»1) 
<RETURN> 

OK, so you were reminded a bit much, but in order to use arrays 
to their fullest advantage in programs, they must be envisioned 
as an orderly set of variables and not something else. Now let's 
use a two-dimensional arr^y in a program. Our program will be 
to line up people in a four member marching band. (This band is 
firom a very small town.) 

10 PRINT "-{CLR/HOME}" 

20 DIM BA$(2»2) : REM MAKE 2 'ROMS' 

AND 2 'COLUMNS' 

30 FOR I » 1 TO 2 : REM ROMS 

40 FOR J = 1 TO 2 : REM COLUMNS 

50 READ BA$(I »J) 

60 NEXT J 

70 NEXT I 

80 DATA MARY* TOM » SUE* PETE 

100 REM OUTPUT BLOCK 

110 FOR I = 1 TO 2 : REM ROMS 

120 FOR J = 1 TO 2 : REM COLUMNS 

130 PRINT BA$(I»J)t : REM COMMA 

MILL FORMAT OUTPUT 2 ACROSS 

140 NEXT J 

150 NEXT I 

When you RUN this program, all of your band members will be 
lined up. However, you could have done the same thing with a 
single dimension airay since all that "lines them up" is the use of 
the comma to format the PRINT statement in line 130. So, what's 
the big deal about a two-dimensional array? Well, to see, let's add 
some lines to our program: 

160 PRINT : PRINT "HIT ANY KEY"; 
170 GET AN$:IF AN$ = "" THEN 170 
1B0 PRINT "■£CLR/HOME>" : PRINT "MHAT 
RDM & COLUMN" 

185 PRINT "MOULD YOU LIKE TO SEE? " 
190 INPUT "ROM --> " !R 
200 INPUT "COL --> " ;C 
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210 PRINT : PRINT BA*(R»C); " IS IN t, 
ROW " ; R5 " COLUMN " ; C 

220 PRINT : PRINT "MORE?(Y/N) "i ^ 
230 GET M* ! IF M* = " " THEN 230 
240 IF M* = "Y" THEN 180 

Now you can locate the value or contents of a specific array on 'O 
two dimensions. In our example, if you know the row number and 
column number, you can find the band member in that position. ^ 
The use of two-dimensional arrays in problems dealbig with 
matrixes is an important addition to your programming commands. ^ 

It is also possible to have several more dimensions in an array ^ 
variable. As you add more and more dimensions, you have to be 
carefiil not to confuse the different aspects of a single sxrsy. Some- 
times, when a multi-dimensional array becomes difficult to man- ^ 
age (or use), it is better to break it down into several one- or two- 
dimensional arrays. But just for fim, let's see what we might want 
to do with a three-dimensional array with the following program: 
(By the way, this problem is based on an actual application!) 

10 PRINT "{CLR/HOME>" ^ 
20 PRINT "MINECELLAR ORGANIZER " 
30 PRINT : PRINT "NO. ^ 
RACKS »ROMS »COLS?" 
40 PRINT "ENTER EACH SEPARATED" 
50 INPUT "BY A COMMA" 5RK »R.C 
60 DIM MI$(RK*R«C) 

70 INPUT "NO. BOTTLES TO STORE?" iNX 
80 PRINT : FOR I = 1 TO N% 
80 INPUT "RACK --> " ;RA 
100 INPUT " ROW --> " !R0 
110 INPUT " COL -->";co O' 
120 INPUT "NAME OF MINE : " ;MN$ 
130 MI$(RA »R0 »C0) " MN$ ^ 
140 NEXT I 

200 REM ROUTINE FOR CHECKING CONTENTS ^ 
OF MINE CELLAR 

210 PRINT "<CLR/HOME>" : INPUT "WHICH ^ 
RACK « TO CHECK? " ;RR 

220 FOR I = 1 TO R ^ 
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n) 230 FOR J = 1 TO C 

240 IF WI$(RR»I»J) = ""THEN WI*<RR»I» 
O J> = "EMPTY" 

250 PRINT "RK «";RR!" ROW #"51!" COL 

«";j : PRINT" CONTAINS " 5WI*(RR »I »J) 

260 NEXT J 

270 NEXT I 

280 END 

^ Now that was a pretty long program, but go over it carefully to 
make sure you understand what it is doing. Again, let me remind 

^ you that all a three-dimensional array is, is a variable with a lot 
of numbers in parentheses. Also, note on line 50 how we INPUT 

^ several values with a single INPUT statement. We used the format 

INPUT A» B» C 

and as long as the operator (program user) is told to enter the 
appropriate nuniber of responses and separate each with a comma, 
1^ everything will work fine. Also, it would be a good idea to save 
this program on a disk as an example of a multi-dimensional array. 

We covered a good deal in this chapter; if you understood every- 
thing, exceUent! If you did not, don't worry; with practice, it will 
all become very clear. Whatever your imderstanding of the mate- 
rial, though, experiment with all the statements. Be BOLD and 
daring with your computer's comniands, and as long as you have 
O a disk or cassette on which you can practice your skills, the worst 
that can happen is that you will erase a few programs! 

- We learned that your VIC-20 computer can compute! Using the 
' IF/THEN commands and relationals we can give the computer 
^ the power of "decision making." Using subroutines it is possible 

to branch at decision points to anywhere we want in our program. 
^ Computed GOTOs and GOSUBs allow the execution to move 

appropriately with a minimal amount of programming. 

n 
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SUMMARY 



Finally, we examined array variables. Arrays allow us to enter 
values into sequentially arranged variables (or elements). Using 
FOR/NEXT loops it is possible to quickly program multiple var- 
iables up to the limits of our DIMensions. Not only do arrays 
assist us in keeping variables orderly, th^ save a good deal of ^ 
work as well. ^ 

In the next chapter, we will begin working with commands that j 
help arrange everything for us. As our programs become more 
and more sophisticated, we will need to keep better track of what 
we're doing. By organizing our programs into small, manageable 
chunks, we can create dear useful programs. ^ 

o 
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CHAPTER 5 



Organizing the Parts 



n 
n 
n 
n 

^ introduction 

^ Unless we organize, as we accumulate more and more informa- 
^ tion, work, or just about anything else, things get confusing. Good 

organization allows us to do more and to handle more complex 
^ and larger problems. These principles hold with pregramming. 

As we learn more commands, we can do more things; but the 
^ more we do, the more likely we are to get tangled up and lost. 

One of the areas that is likely to be the first to suffer from "over- 
flow" is that of formatting output. Variables get mixed up, arriQrs 
are misnumbered and the screen is a mess. In order to luuidle this 
kind of problem, we will deal extensively with text and string 
O formatting. Not only will we be able to put things where we want 
them, but we will do it with style! 

n 

The second major area of disorganization is I/O (INPUT/OUT- 
^ PUT). Some of the problem has to do with formatting, but even 

more elementary is the problem of organizing the input and out- 

put so that data is properly analyzed. Data has to be connected 
^ to the proper variables and be subject to the correct computa- 

tions. Thus, in addition to examining string formatting, we will 
^ also look at organizing data manipulation. 

n FORMATTING TEXT 

O In Chapter 1 we said that the VIC-20 keyboard works in many 
ways like a typewriter. One feature of a typewriter is its ability 
to set "tabs" so that the user can automatically place text a given 
number of spaces from the left margin, ^th your VIC-20, you 
can TAB and SPC. Let's look at what each of these means: 



COMMAND MEANING 



n 
n 

^ TAB (N) Used within PRINT statement to place 
^ next character N spaces from left margin. 



n 
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SPC (N) Used within PRINT statement, creates 
specified number of spaces. (SPC starts 
printing non-space one space after N.) 

{HOME} Places cursor in upper left hand corner 
of screen. Use the CLR/HOME \asymth- 
out pressing SHIFT key. 




Now, to better see how these commands format text output, let's 
USE THEM! 



10 PRINT '■<CLR/HOME>" : PRINT 
20 PRINT TAB (10); "TAB TO HERE" 
30 PRINT SPC(10);"SPC TO HERE" 
40 PRINT "{HOME>";"UP HERE!" : REM 
PRESS THE CLR/HOME KEY 
50 REM WITHOUT THE SHIFT KEY 
60 REM - YOU'LL GET AN INVERSE "S" 
70 FOR I = 1 TO 20 : PRINT : NEXT ; 
PRINT "DOWN HERE"! 



PRINT 



80 GET A« : IF A* 
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THEN 80 



u 

u 



n 



O When you RUN this program, note that when you used the {HOME} 

command, it did not clear the screen. Rather, it placed line 40 at 
^ the top of the screen, leaving what was printed in lines 20, 30 and 
_ 70 on the screen. Also, we were able to produce a vertical tab by 

using empty PRINT statements in line 70 to take the text down 
^ to vertical position 20 on the screen. Again, the other text on the 

screen was not erased. Line 80 keeps line 20 from scrolling off the 
/-N top of the screen. (Pressing any k^ will cause the program to 

end. ) Now let's have a little fun with our commands. Here's a little 
^ program that will give you an idea of how to place text within 

your program. 

n 

10 PRINT "<CLR/HOME>" : FOR I = 1 TO 
D a : PRINT : NEXT 

20 INPUT "ENTER MESSAGE --> "5 MS* 
30 PRINT : INPUT "HORIZONTAL POS. --> 
" 5 H 

O 40 PRINT : INPUT "MERTICAL POS. --> 



n 
n 
n 



50 PRINT "{CLR/HOME>' 



60 FOR MER = 1 TO V : PRINT : NEXT UER 
: PRINT TAB(H) ! MS*5 
70 PRINT ! PRINT "ANY KEY TO 
CONTINUE" 
80 PRINT "OR '0' TO QUIT "; 
30 GET A$ : IF A'* = " " THEN S0 
100 IF A* < > "0" THEN 10 
110 END 

n 

As you can see, variables can be used with formatting statements. 

O Thus, TAB(H) is read in the same way as TAB(10) or TAB(15) or 
any other number between and 21. Using the above program, 
what do you think would happen if you entered 'THIS IS A LONG 
STRING", a HORIZONTAL placement of 19 and a VERTICAL 
placement of 23? Since the maximum TAB is 21 and the maximum 

^ vertical placement is 23, the string (MS$) will go over the bound- 
aries. Gro ahead and try it to see what happens. In fact, it would 

^ be a good idea to test the limits of TAB and vertical placement 
with this prc^eam to get a dear understanding of their parameters. 

n 
n 



n 
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Unraveling strings 

Our discussion of strings up to this point has involved "whole" 
strings. That is, whatever we define a string to be, no matter how 
long or short, can be considered a "whole" string. For example, 
if we define R$ as "WALK" then we can consider "WALK" to be 
the whole of R$. Likewise, if we defined R$ as "A VERT LONG 
AND WORDY MESSAGE" then, "A VERY LONG AND WORDY 
MESSAGE" would be the whole string of R$. There will be occa- 
sions, however, when we want to use only part of a string or tie 
several strings together. (When we get into data base programs, 
we will find this to be very important.) Also, there are applica- 
tions where we will need to know the length of strings, find the 
numeric values of strings, and even change strings into numeric 
variables and back again. 



TRUST ME! 

I hate to admit it, but when I first learned about all of the 
commands we are about to discuss, I thought, "Boy, what a 
waste of time!" It was enough to get the simple material 
straight, but why in the world would anyone want to chop 
up strings and put them back together again? If you want 
only a certain segment of a string, why not simply define it 
in terms of that segment? And if you want a longer string, 
then just define it to be lon^r! Those were my thoughts on 
the matter of string formatting. However, I have now come 
to the point where I find it very difficult to even conceive of 
programming without these powerful commands. So, trust 
me! String formatting commands are terrific little devices 
to have. If you do not see their applicability right away, you 
will as you begin writing more programs. 



String Formatting 

We will divide our discussion of string formatting into four parts: 
1) Calculating the length of a string, 2) Locating parts of strings, 
3) Changmg strings to numeric variables and back again, and 4) 
Tying strings together (concatenation). 
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calculating the LENgth of strings 



r*) Sometimes it is necessary to calculate the length of a string for 
formatting output. Happily, your VIC-20 is very good at telling 

O you the length of a particular string. By the command PRINT 
LEN(A$), you will be given the number of characters, including 

^ spaces, your string has. Try the following little program to see 

_ how this works: 

^ 10 PRINT "<CLR/HOME>" 

20 INPUT "NAME OF STRING--> "! A$ 
^ 30 PRINT A$; " HAS "i LEN(A$) J : 

' PRINT "CHARACTERS" 

^ 40 PRINT : PRINT " riORE?(Y/N) "! 

50 GET AN$ : IF AN« - "" THEN 50 

60 IF AN« = "Y" THEN 20 

O Now to see a more practical application, we will look at a modified 
version of the centering routine we used in the last chapter. 
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10 PRINT "•£CLR/HOME>" 

20 PRINT "ENTER A STRING LESS" : 

PRINT "THAN 40 CHARACTERS" 

30 INPUT "-->"! S$ 

40 PRINT "{CLR/HOME>" 

50 L = 11 - LEN(S$)/2 : PRINT TAB(L) i 
S$ 

60 FOR I = 1 TO 18: PRINT : NEXT : : 

PRINT "ANY KEY TO CONTINUE" : PRINT " 

OR '0' TO QUIT "I 

70 GET A* : IF A$ = THEN 70 

80 IF A$ < > "0" THEN PRINT "<CLR/ 

HOriE>" : GOTO 10 

S0 END 

Now that we can see how to compute the LENgth of a string and 
then use that LENgth to compute our tabbing, let's see how we 
can control the input with the LEN command. Suppose you want 
to write a program that will print out mailing labels, but your 
labels will hold only 15 characters. You want to make sure all of 
your entries are 15 or fewer characters long, including spaces. To 
do this we will write a program which checks the LENgth of a 
string before it is accepted. 

10 PRINT "<CLR/HOME>" 

20 PRINT "ENTER A NAME LESS" : PRINT 

"THAN 15 CHARACTERS" : PRINT "INCLUDING 

SPACES" 

30 INPUT "DO NOT USE COMMAS --> "5 NA* 
40 IF LEN <NA«) > 15 THEN GOTO 100 : 
REM TRAP 

50 PRINT : PRINT NA$ 

60 PRINT s PRINT "ANOTHER NAME?(Y/N)"; 
70 GET AN$ : IF AN* = " " THEN 70 
80 IF AN* < > "Y" THEN END 
90 GOTO 10 

100 PRINT "{CLR/HOME>" ; PRINT 
"PLEASE USE 15" : PRINT "CHARACTERS 
OR LESS " 

110 PRINT : GOTO 20 
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Break the rule!!! Go ahead and enter a string of more than 15 
^ characters to see what happens. (If your computer gets snotty 
with you, you can always re-program it. It helps to remind it of 
that fact periodically.) If the program was entered properly, it is 
impossible to enter a string of more than 15 characters. 

n 

From the above examples, you can begin to see how the LEN 
O command can be useful in several ways. There are many other 

ways that such commands can be employed to reduce program- 
^ ming time, clarify output, and compute infonnation. The key to 

understanding its useftdness is to experiment with it and see how 

other programmers use the same command. 



n 



n 
n 



Finding the MiDdie$, left$, and richt$ Parts of a String 



<^ Suppose you want to use a single string variable to describe three 
different conditions, such as "POOR FAIR GOOD", but you want 

^ to use only part of that string to describe an outcome. Using 
MID$, LEFT$ and RIGHT$, it is possible to PRINT only that 
part of the string you want. For example, the following program 

^ lets you use a single string to describe three different conditions: 



10 PRINT "-CCLR/HOME}" 
20 X$ ="POQR FAIR GOOD" 
30 PRINT "HOW DO YOU FEEL?" s PRINT 
"<P>OOR <F>AIR <G>OOD" 
40 GET F* ! IF F$ = "" THEN 40 
50 IF F$ = "P" THEN PRINT LEFT*(X$»4) 
O 60 IF F$ = "F" THEN PRINT MID$(X$»B»4) 

70 IF F$ = "G" THEN PRINT RIGHT$(X*»4) 
80 PRINT : PRINT s PRINT "ANOTHER GO? 
(Y/N) "5 

O S0 GET AN$ : IF AN$ = "" THEN 90 

100 IF AN$ = "Y" THEN 10 

n 

Let's face it, it would have been easier to simply branch to a 
^ PRINT 'GOOD' 'FAIR' or TOOR' and no less efficient. But, no 
^ matter, it was for purposes of illustration and not optimizing pro- 
gram organization. Let's see what the new commands do. 

n 
n 
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COMMAND MEANING 



For an interesting effect, try the following little program: 
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MID$(A$,N,L) Finds the portion of A$ beginning at 
Nth character L characters long. 

LEFT$(A$, L) Finds the portion A$, L characters long 
starting at the LEFT side of the string. 

RIGHT$(A$,L) Finds the portion of A$, L characters ^ 
long starting at the RIGHT side of the 
string. ^ 

To give you some immediate experience with these commands, ^ 
try the following: ^ 



M« ="WHAT A MESS" : PRINT LEFT*(W$ »a) 
<RETURN> 

G$ BURLESQUE" : PRINT riID$(G$ i/l »3) 

<RETURN> 

X$ ="A PLACE IN SPACE" i PRINT 

RIGHT*(X*»5) : PRINT RIGHT*(X*»3) 
<RETURN> ^ 



Another trick with partial strings is to assign parts of one string ^ 
to another string. For example: 



10 PRINT "<CLR/HOME>" 

20 BIG$ = "LONG LONG AGO AND FAR FAR 
AWAY" 

30 LITTLE$ = MID$(BIG$»11 »3) 
40 AMY$ - RIGHT$(BIG$»4) 
50 LG* = LEFT$(BIG$ 

60 PRINT : PRINT : PRINT AWY*;"";LG*; 
"" 5LITTLE* 

70 REM BEFORE YOU RUN IT» SEE IF YOU ^ 
CAN GUESS THE MESSAGE. 

10 PRINT "{CLR/HOME>" : FOR I = 1 TO 

10 ! PRINT : NEXT O 



20 INPUT YOUR NAME-->"! NA$ 

30 FOR I = LEN(NA*) TO 1 STEP -1 : 

PRINT MID*(NA* »I »1 ) ! : NEXT I 

40 FOR I = 1 TO 1000 ! NEXT I : REM 

DELAY LOOP 

45 REM ** LINE 50 USES THE NON- 
SHIFTED CLR/HOME KEY** 

46 REM ** NOTE HOW IT FUNCTIONS TO 
PLACE THE CURSOR VERTICALLY ** 

47 REM ** IN CONJUNCTION WITH THE 
LOOP ** 

50 PRINT "-CHOME}" : FOR M = 1 TO 1 1 
rPRINT : NEXT V 

55 REM ** IN LINE 60 'K LOOP' SLOWS 
IT DOWN FOR SLOW MOTION EFFECT ** 
B0 FOR I = 1 TO LEN(NA$) : PRINT MID$ 
(NA* » I »1) ; ! FOR K = 1 TO 50 ! NEXT K 
: NEXT I 

70 FOR VT = 1 TO 5 : PRINT : NEXT MT: 
PRINT TAB (5); "AGAIN?(Y/N) "5 
80 GET AN$: IF AN* = "" THEN 80 
80 IF AN* = "Y" THEN 10 

Now you have probably been wondering ever since you got your 
computer how to make it print your name backwards. Well, now 
you know! (If your name is BOB you probably didn't notice it was 
printed backwards - try ROBERT.) Actually, the above exercise 
did a couple of things besides goofing off. First, it is a demon- 
stration of how loops and partial strings (or substrings) can be 
used together for formatting output. Second, we showed how 
output could be slowed down for either an interesting effect or 
simply to give the user time to see what's happening. 

Since we're on the topic of speed, let's learn how to use your VIC- 
20's clock. Remember we pointed out that TI$ was a "reserved 
variable," and now we will see why. Try the following in the Imme- 
diate mode: 

TI* = "101030" <RETURN> 
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Now wait a few seconds and enter 

PRINT TI$ <RETURN> 

The value of TI$ changed from 101030 to something else! If you 
waited for just a few seconds, 101030 changed to 101050 or some- 
where in that range. To see what is happening, let's break it down 
into hours, minutes and seconds. 

10 10 30 = 10 hours 10 Minutes 30 
seconds « 




We'd say that the time is 10:10 and 30 seconds on a normal clpck. 
Well, that's exactly what TI$ does. It ticks off the seconds, then 
minutes and finally hours. To better see this, let's make a little 
dock program. 
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10 PRINT "<CLR/HOME>" : PRINT "VIC-20 
CLOCK " 

20 FOR I = 1 TO : PRINT : NEXT : 

PRINT "ENTER TIME" : PRINT "00 HRS 

00 MIN 00 SEC" 

30 INPUT TI« 

40 PRINT "<CLR/HOME>" 

50 PRINT "•tHOME>" : PRINT : PRINT : 

PRINT 

60 HR$ = LEFT*(TI»»2): MIN$= MID$(TI»» 

3 tZ) 

70 SEC$ - RIGHT$(TI$»2) 

80 PRINT "THE TIME IS" !HR* 5 " : " ; ! 

PRINT MIN* 

90 PRINT "<C0NTR0L-9> AND" i SEC* 5 
"SECONDS " 
100 GOTO 50 

When you run this program, be sure to enter all 6 digits for hours, 
minutes and seconds. For example, if the time you yimt to enter 
is 8:14, enter 081400, not just 814. 

Besides using TI$ for a clock to display time on your screen, you 
can also use it for a timer in your programs. By first setting a 
value for TI$ and then checking it in your program, you can have 
timing for responses. The following is a simple matii game which 
adds the element of time: 



10 PRINT "<CLR/HOME>": FOR I = 1 TO 5 
: PRINT : NEXT : TI* = "000000" 
20 INPUT "1ST NUMBER-->"i A 

30 input "2nd number-->"5 b 

40 print : print "what is"; a ; "+"; 

b; 

50 INPUT C 

60 IF A + B < > C THEN 200 
70 IF TI* > "000010" THEN GOTO 100 
80 PRINT : PRINT "THAT'S RIGHT!!!!" : 
FOR X » 1 TO 1000 : NEXT : GOTO 10 
100 PRINT "<CLR/HOME>" s PRINT : PRINT 
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"YOU RAN OUT OF TIME!" 

110 FOR TM = 1 TO 1000 : NEXT TM : 

GOTO 10 \^ 

200 PRINT "THAT'S NOT QUITE RIGHT" : 

INPUT "<RETURN> TO CONTINUE" ;CR KJ 

210 GOTO 10 

Examine the program carefully. Note how the time is checked in 
line 70 and how it is reset to "000000" each time the process is 
restarted. 

Changing Strings to Numbers and Back Again ^ 

Now we're going to learn about changing strings to numbers and 

numbers to strings. If you're like me, when I first found out about 

these commands, I thought they were pretty useless. After all, 

if you want a string use a string variable, and if you want a number 

use a numeric variable. Simple enough, but again, once you under- ^ 

stand their value, you wonder how you could do without them. 

To get started, let's RUN the following program: ^ 



10 PRINT "<CLR/HOME>" ^ 
20 FOR I » 1 TO 5 : READ NA$(I) : 
NEXT I 

30 FOR I = 1 TO 5 
40 X(I) = l^AL(RIGHT»(NA$(I) »1)) 
50 NEXT I 

60 FOR I = 1 TO 5 : PRINT "OVERTIME 
PAY= *"i X(I) * <1.5 * 7) s NEXT I 
70 DATA SMITH 7t JONES 8* MCKNAP 
6» JOHNSON 2» KELLY 3 ^ 
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Using DATA which were originally in a string format, we were ^ 
able to change a portion of that string array to a numeric array. 
By making such a conversion, we were able to use our mathe- ^ 
matical operations on line 60 to figure out the overtime pay for 
someone receiving time and a half at seven dollars ($7) an hour. ^ 
Well, that's pretty mteresting, but we don't have a list of who got 
what and the total overtime paid! Why don't you try it yourself. 
Change the program so that everyone's name appears with the , 
amount of overtime each received and a total overtime paid. (Ifint: 
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^ You are looking for the substring LEFT$ (NA$(I), LEN 
(NA$(I) -2)) since you want to drop the number and space after 
^ each name.) When you get it, write me a letter to show me how 
^ you figured it out. 

It alws^s helps to do a few immediate exercises with a new com- 
O mand to get the right feel, so try these: 



n 



A$ = "123" : PRINT MAL(A$} + 11 
<RETURN> 

0$ = "99.5" : PRINT VAL(0$) * 7 
<RETURN> 

SALE$ = "44.95" : PRINT ""ON SALE AT 
HALF PRICE -->*"! yAL(SALE$) / 2 
<RETURN> 

DO* = "*103.98" : DN* = "*18.34" : 
PRINT VAL <RIGHT*(DO*»B) ) + VAL 
D (RIGHT$(DN$»5) ) <RETURN> 

O NOTE: Since you may tmnt to SAVE the above examples on tape 
or disk, all you have to do is to add line numbers and SAVE 
^ them as WMe programs. 

^ From Numbers to Strings 

O All right, let's now go the other way. We saw why we might want 
to change strings to numbers, but we may also want to change 

O numbers to strings. To make the conversion we use the STR$ 
command. For example, look at the following program: 

10 PRINT "{CLR/HOME>" 
O 20 PRINT "ENTER A NUMBER" : PRINT 

"WITH 5 DIGITS AFTER" 

30 INPUT "THE DECIMAL POINT " ! A 
^ 40 A$ = STR*(A) 

^ 50 PRINT ! PRINT LEFT* (A*»4) 

As you can see you have truncated the number to three characters 
including the decimal point. (Change LEFT$ to RIGHT$ in line 
50 and you will get the rightmost 4 <not 3> characters of the 
O string. No one knows why it does this with numbers converted 
to strings. Do you?) Now, let's do some in the Immediate mode 

n 
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to get the idea firmly into your mind, and a little later we will do 
something very practical with these commands. 

A = 5.00 : A$ - STR$(A) : PRINT A$ 
<RETURN> 

V - 2345 : V$ - STR«(M) : PRINT M» 
<RETURN> 

BUCKS - 22.36 : BUCKS$ = STR$(BUCKS) 
: PRINT LEFT$(BUCKS«»2) <RETURN> 

Remember these commands, and when you are dealing with dec- 
imal points you will often find them handy. 

Tying strings Together : concatenation 

We have seen how we can take a portion of a string and PRINT 
it to the screen. Now we will tie strings together. This is called 
CONCATENATION and is accomplished by using the " + " sign 
with strings. For ecample: 

10 PRINT "<CLR/HOME>" 

20 INPUT "FIRST NAME--> "; NF$ 

30 INPUT "LAST NAME--> "I NL* 

40 NA« = NF$ + NL» 

50 PRINT NA« 
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A little messy, huh? However, you can see how NF$ and NL$ 
were tied together into a single larger string. Now change line 
40 to read 



40 NA$ 



NF* + 



+ NL* 



This time when you RUN the program, your name will turn out 
fine. Not only did we concatenate string variables, we also con- 
catenated strings themselves. For example, it is perfectly all right 
to do the following: 

PRINT "ONE" + "ONE" < RETURN > 

Now there isn't much you can do with ONEONE, but we can see 
the principle of operation with concatenating strings. 




One of the problems with the way your VIC-20 formats numbers 
is that it drops el's off the end. For example, try the following: 

PRINT 19.80 
PRINT 5.00 

In dealing with dollars and cents, this can be a real pain in the 
neck, and it doesn't look very good. So, using concatenation and 
our VAL and STR$ commands, let's see if we can fix that. 
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10 PRINT "{CLR/HOME>" 

20 PRINT "BE SURE TO" s PRINT 

"INCLUDE ALL CENTS!" : PRINT : PRINT 

30 INPUT "AMOUNT SPENT? --> *" ; S 

40 T = T + S 

50 T* = STR$(T) 

60 T$ = "000" + T$ : REM THIS IS TO 

INSURE THAT LEN(T$) IS LONG ENOUGH 

70 IF MID* (T*» (LEN (T*) - 1),1) = 

"." THEN T* = T$ + "0" : GOTO 90 

80 IF MID$ (T*» (LEN (T*) -Z)»l) < > 

"." THEN T* = T$ + ".00" 

90 PRINT : PRINT : PRINT "YOU HAVE 

SPENT RIGHT*(T*» LEN(T$) -3) 

100 PRINT "ANY KEY TO CONTINUE" s 

PRINT "OR '0' TO QUIT"! 

110 GET R* : IF R$ = "" THEN 110 

120 IF R* = "Q" THEN END 

130 GOTO 10 

This nu^ look pretty complicated, but let's break it down to see 
what has been done. 

1. We entered numeric variables in line 30 and computed 
their sum in line 40. 

2. The sum represented by T was then converted to a 
string variable T$ in line 50. 

3. In line 60 we "padded" T$ with three O's to give it a 
minimum length we will need in lines 70 and 80. 

4. Line 70 computes the second from the last character 
in T$. If that character is a decimal point (.) then we know 
it must be a figure that dropped off the last cent column 
(e.g., 5.4, 19.5, etc.) So we tack on a 0, and jump to line 
90. 

5. Line 80 computes the third from the last character, 
and if it is not a decimal point (.) then we know it must 
have dropped all the cents completely - an even dollar 
number. So we tack on the decimal point and two 0*8 (.00). 
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6. Finally, in line 90 we print out our results but first 
drop the "padding" we added in line 60 using RIGHT$. 
The statement 'LEN (T$)-3' computes the length of T$ 
and subtracts three, the unwanted three 0's. 

All of this may seem a bit complicated just to get our 0's back, 
but actually, the entire process was done in five lines (50 tiffough 
90). SAVE the program, and when you need those 0's in your 
output, just include those lines! (Be careful, though, this will not 
work with subtraction when you get below $1! A better formula 
will be shown later on.) 

setting up Data Entry 

Now that we have a firm grip on numerous commands, it is time 
we begin thinking serious^ about organizing our programs. The 
first thing we must do is to arrange our data entry in a manner 
that we ourselves and others can understand. This involves block- 
ing elements of our program and deciding what variables and 
amys we will be using. Also, when we enter data, we want to 
make sure that we are entering the correct type of data. We have 
to set "traps" so that any mput which is over a certain length or 
amount can be checked against our parameters. Let's look at a 
way to make our strings a certain length (no shorter or longer 
than a length we want). We've ahready discussed how to keep 
strings to a maximum length, so let's see how to teep them to a 
minimum as well. This process is referred to as "padding." 

10 PRINT "<CLR/HOME>" 

20 FOR I = 1 TO 8 : PRINT : NEXT I : 

INPUT "YOUR COMPANY-->"! CM$ 

30 IF LEN(CM*) <= 10 THEN 70 

40 IF LEN(CM*> > 10 THEN PRINT "10 OR 

FEWER" : PRINT "CHARACTERS PLEASE" : 

REM TRAP FOR TOO LONG A NAME 

42 REM PRESS THE CTRL AND S KEYS 

SIMULTANEOUSLY {CTRL-S> IN LINE 45 

45 PRINT :PRINT "<CTRL-9> HIT ANY 

KEY" I 

50 GET A$ ! IF A* = "" THEN 50 
60 GOTO 10 
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70 IF LEN(CM*) < 10 THEN CM$ = CM$ + 
"X" : GOTO 70 : REM PADDING 
80 PRINT "-CCLR/HOME}" : FOR I = 1 TO 
8 s PRINT s NEXT : PRINT "THE 
COMPUTER HAS" : PRINT "DECIDED THAT " 
90 PRINT CM*; " SHOULD" s PRINT "GIVE 
YOU A RAISE! " 

Now if YOUR COMPANY <CM$> is less than 10 characters, 
you will see some X's stuck on the end. These were put there to 
show you how padding works. Now change the X to " " <a space> 
in line 70 and see what happens. Go ahead. The second time you 
ran the program, if your company's name was less than 10 char- 
acters, there were a lot of blank spaces after the company name. 
To remove the spaces, we would enter: 

75 IF MID$(CM*»LEN(CM$) »1) = " " 
THEN CM* = LEFT*(CM*»(LEN(CM*)-1): 
GOTO 75 

Setting Up Data Manipulation 

Once you have organized your input, the next major step is per- 
forming computations with your data. There are essentially two 
kinds of data manipulation you will deal with: 

1. NUMERIC — Manipulating numeric data with math- 
ematical operations. 

2. STRING — Manipulating strings with concatenation 
and substring commands. 

Most of the string manipulations are for setting up input or out- 
put, and so we will concentrate on manipulating numeric data. We 
will use a simple example that keeps track of three manipulations: 
(1) additions, (2) subtractions and (3) running balance. This will 
be our checkbook program we started earlier. 

10 PRINT "<CLR/HOME>" 

20 REM »«» BEGIN INPUT & HEADER BLOCK 
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30 CB* = " "COMPUTER CHECKBOOK" ": L 

= 11 - LEN <CB*) / 2: PRINT TAB(L)!" 

<CTRL-9>"? CB$ : REM =HEADER= 

40 FOR I = 1 TO 4 s PRINT : NEXT s 

INPUT "CURRENT BALANCE--> $";BA 

50 VTAB 6: PRINT "1. ENTER DEPOSITS": 

PRINT : PRINT "2. DEDUCT CHECKS" 

55 PRINT : PRINT "3. EXIT" 

60 FOR I = 1 TO 7 : PRINT : NEXT : 

PRINT "{CTRL-g> CHOOSE BY NUMBER "i i 

INPUT A 

70 ON A GOTO 100»200»400 

80 GOTO 60: REM TRAP 

S0 REM END OF INPUT BLOCK 

100 REM »»» DATA MANIPULATION ROUTINE 

NO. 1 ««» 

110 PRINT"{CLR/HOME>" : FOR I = 1 TO 
6 : PRINT : NEXT: INPUT "AMOUNT OF 
DEPOSIT *"5DP 

120 BA = BA + DP: REM RUNNING BALANCE 
130 PRINT : PRINT : PRINT "YOU NOW 

HAVE $";ba; 

140 PRINT : INPUT CTRL-3>M0RE 

DEPOSITS? (Y/N) "i AN$ 

150 IF AN$ = "Y" THEN 110 

160 PRINT : INPUT "DEDUCT CHECKS? (Y/ 

N) ";: AN» 

170 IF AN« = "N" THEN GOTO 400 

180 IF AN* = "Y" THEN GOTO 200 

130 PRINT"<CLR/HOME>" : GOTO 160: REM 

TRAP & END OF DATA MANIPULATION 

ROUTINE NO.l 

200 REM DATA MANIPULATION ROUTINE 

NO. 2 »»« 

210 PRINT"{CLR/HOME>" : FOR I = 1 TO 
6 : PRINT : NEXT: INPUT "AMOUNT OF 
CHECK *"iCK 

220 BA = BA - CK: REM RUNNING BALANCE 
230 PRINT : PRINT "YOU NOM HAVE *" ;BA 
240 PRINT : INPUT "MORE CHECKS? (Y/N) 
- '0' TO QUIT ";: AN« 
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250 IF AN* s "Y" THEN 210 

260 IF AN$ - "0" THEN 400 

270 PRINT ! INPUT "ANY DEPOSITS? (Y/ 

N) AD$ 

280 IF AD« = "Y" THEN 100 

290 GOTO 240: REM TRAP & END OF DATA 

MANIPULATION BLOCK NO. 2 

400 REM nnn TERMINATION BLOCK ««• 

410 PRINT "<CLR/HOME>" : FOR I = 1 TO 

ISSs PRINT "$";: NEXT 

420 PRINT "YOU NOM HAVE A" : PRINT 

"BALANCE OF $";BA 

This program is designed to provide a simple illustration of how 
to block data manipulation. However, there are some problems 
with it in the output. We are not getting the Vs on the end of our 
balance! This is an "output" problem we will discuss in the follow- 
ing section, but before we continue, make sure you understand 
how we blocked the data manipulation. Y/e used only three variables: 

BA = BALANCE 
CK = CHECK 
DP = DEPOSIT 

When we subtracted a check, we simply subtracted CK from BA, 
and when we entered a deposit, we added DP to BA. In this way 
we were able to keep a running balance and at the very end BA 
was the total of all deposits and checks. By keeping it simple and 
in blocks we were able to jump around and still keep everything 
straight. 

organizing Output 

Let's go back to our program and repair it so that our balance will 
have the 0*8 where they belong. This is essentially a problem of 
output, because all of the computations have been done, and they 
correctly tell us our balance, but it doesn't look right with the 
missing 0*8. However, we don't want to have to enter the lines for 
converting our balance into a string variable every time the run- 
ning balance is printed. Therefore, we will put the subroutine for 
our conversion into a block. Looking at our COMPUTER 
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CHECKBOOK program, it just so happens that there is a block 
available in the SOCTs — our luck is with us! We'll use that block 
to format our output. 

300 REM «»« FORMAT OUTPUT »»» 
310 BA s BA + .001: PLACE = 1:BA$ = 
5TR« (BA): IF BA < .001 THEN BA$ = 
"0.00"! GOTO 340 

320 IF MID$ (BA*»PLACE»1) < > "." 
THEN PLACE = PLACE + Is GOTO 320 
330 BA$ = LEFT* (BA$»PLACE + 2) 
340 RETURN 

350 REM END OF OUTPUT BLOCK 

Now well change a few lines in our program so that when there 
is an output of our balance, it will jump to the subroutine between 
lines 300 and 350 and then RETURN to output BA$. The follow- 
ing lines in our COMPUTER CHECK BOOK program should be 
changed and/or added: 

125 GOSUB 300 

130 PRINT : PRINT : 

PRINT "YOU NOM HAME $" ; BA$ 

225 GOSUB 300 

230 PRINT : PRINT "YOU NOM HAVE 
»"5BA* 

415 GOSUB 300 

420 PRINT "YOU NOM HAVE A" : PRINT 
"BALANCE OF *" i BA$ 

Now, if you put everything together properly, you should have a 
handy little program for working with your checkbook. Just to 
make sure you got everything, here's the complete program with 
all the subroutines and changes we made: 

10 PRINT "<CLR/HOME>" 

20 REM •»« BEGIN INPUT & HEADER BLOCK 
mmm 

30 CB« - " -COMPUTER CHECKBOOK^ ": L 
» 20 - LEN (CB*) / 2: PRINT TAB(L);" 
(CTRL-S)"; CB* : REM -HEADER^ 
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40 FOR I » 1 TO 4 : PRINT : NEXT : 

INPUT "CURRENT BALANCE -->$" ;BA 

50 VTAB 6: PRINT "1. ENTER DEPOSITS": 

PRINT : PRINT "2, DEDUCT CHECKS" 

55 PRINT : PRINT "3. EXIT" 

60 FOR I = 1 TO 7 : PRINT s NEXT s 

PRINT "<CTRL-S> CHOOSE BY NUMBER "; : 

INPUT A 

70 ON A GOTO 100»200*400 

80 GOTO 60: REM TRAP 

30 REM END OF INPUT BLOCK 

100 REM »»« DATA MANIPULATION ROUTINE 

NOt 1 ««» 

110 PRINT"^CLR/HOME>" : FOR I = 1 TO 
6 : PRINT : NEXT: INPUT "AMOUNT OF 
DEPOSIT $";dp 

120 BA = BA + DP: REM RUNNING BALANCE 
125 GOSUB 300 

130 PRINT : PRINT : PRINT "YOU NOM 
HAVE «";ba$ 

140 PRINT : INPUT "<CTRL-S>MORE 

DEPOSITS? (Y/N) "; AN$ 

150 IF AN» = "Y" THEN 110 

160 PRINT : INPUT "DEDUCT CHECKS? (Y/ 

N) ";: AN$ 

170 IF AN$ - "N" THEN GOTO 400 

180 IF AN$ = "Y" THEN GOTO 200 

180 PRINT"{CLR/HOME>" : GOTO 160: REM 

TRAP & END OF DATA MANIPULATION 

ROUTINE NO.l 

200 REM »»« DATA MANIPULATION ROUTINE 
NO. 2 »«»« 

210 PRINT"<CLR/HOME>" : FOR I = 1 TO 
6 : PRINT : NEXT: INPUT "AMOUNT OF 
CHECK *"5CK 

220 BA - BA - CK: REM RUNNING BALANCE 
225 GOSUB 300 

230 print : print "you nom have 
«" ;ba« 

240 print : input "more checks? (y/n) 
- '0' to quit "!: an* 
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250 IF AN$ = "Y" THEN 210 

260 IF AN$ = "0" THEN 400 

270 PRINT : INPUT "ANY DEPOSITS? (Y/ 

N> "; : AD$ 

280 IF AD* = "Y" THEN 100 

230 GOTO 240: REM TRAP & END OF DATA 

MANIPULATION BLOCK NO. 2 

300 REM ««« FORMAT OUTPUT ««« 

310 BA = BA + .001:PLACE = 1:BA$ = 

STR$ (BA): IF BA < .001 THEN BA$ - 

"0.00": GOTO 340 

320 IF MID* (BA*»PLACE»1) < > "." 
THEN PLACE = PLACE + 1: GOTO 320 
330 BA* = LEFT* (BA*»PLACE + 2) 
340 RETURN 

350 REM END OF OUTPUT BLOCK 

400 REM «»» TERMINATION BLOCK ««» 

410 PRINT"{CLR/HOME>" : FOR I = 1 TO 

400: PRINT "*"; : NEXT 

415 GOSUB 300 : REM NOTE THAT A 

'GOSUB' CAN GO BACKWARDS IN LINE 

NUMBERS! 

420 PRINT "YOU NOM HAVE A" : PRINT 
"BALANCE OF *" ;BA* 

Scroll Control! 

One of the big problems in output occurs when you have long lists 
that will scroll right off the screen. For example, the output of 
the following program will kick the output right out the top of the 
screen: 

10 PRINT "-CCLR/HOME}" 

20 FOR I = 1 TO 100 : PRINT I : NEXT 

Instead of numbers, suppose you have a list of names you have 
sorted or some other output you wanted to see before they zipped 
off the top of the screen. Depending on the desired output, screen 
format and so forth there are several different ways to control 
the scroll. Consider the following: 
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10 PRINT "{CLR/HOME}" 
20 FOR I = 1 TO 100 
30 IF I - 20 THEN GOSUB 100 
40 IF I - 40 THEN GOSUB 100 
50 IF I = 60 THEN GOSUB 100 
60 IF I = 80 THEN GOSUB 100 
70 PRINT I : NEXT I 
80 END 

100 PRINT s PRINT : PRINT "(CTRL-S) 
HIT ANY KEY TO CONTINUE " 5 
110 GET A* : IF A = " " THEN 110 
120 PRINT "iCLR/HOME>" : RETURN 




REMEMBER!! You, not the computer, are in CONTROL! You 
can have your output any way you want it. To use more of the 
screen, you could have the output tabbed to another column after 
the vertical screen is filled. For example: 

10 PRINT "<CLR/HOME>" 

20 FOR I = 1 TO 40 

30 IF I > 20 THEN GOSUB 100 

50 PRINT I : NEXT I 

80 END 

100 PRINT "<HOME>" : FOR J=l TO (1-20) 
s PRINT : NEXT J: PRINT TAB (10)5 
110 RETURN 

You get the idea. Format your ouput in a manner that best uses 
the screen and your needs and get that scroU under control! 
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Summary 



The formatting of programs makes the difference between a use- 
ful and not-so-useftil application of your computer. The extent to 
which your program is well organized and clear, the better the 
chances are for simple yet effective programming. Formatting is 
more than an exercise in making your input/output fancy or inter- 
esting. It is a matter of communication between your VIC-20 and 
you! After all, if you can't make heads or tails of what your com- 
puter has computed, the best calculations in the world are of 
absolutely no use. 

In the same way it is important to have your computer tell you 
what you want, it is also important to write your programs so 
that you and others can understand what is happening. By using 
"blocks" it is easier to organize and later understand exactly what 
each part of your program does. Obviously, it is possible to write 
programs sequentially so that each command and subroutine is in 
an ascending order of line numbers, but to do so means that you 
will have to repeat simple and/or complex operations which could 
be better handled as subroutines. Also, it will be considerably 
more difficult to locate bugs and make the appropriate changes. 
In other words, by using a structured approach to programming, 
you make it simpler, not more difficult. 

Finally, you should begin to see why there are commands for 
substrings and all the fiiss about TABs. These are handy tools for 
organizing the various parts in a manner which gives you com- 
plete control over your computer's output. What may at first seem 
like a petty, even silly command in VIC-20 BASIC, upon a useful 
application, can be appreciated as an excellent tool. Therefore, as 
we delve deeper into your computer, look at the variety of com- 
mands as mechanisms of more efficient and ultimately simpler 
control and not a complex "gobbleygook" of "computerese" for 
geniuses. After all, if you've come this far, you should realize that 
what you know now looked like the work of "computer whizzes" 
when you first began. 
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^ CHAPTER 6 

o 

n Some Advanced Topics 

^ (But Not TOO Difficult Once you Get To Know 

Them) 

o 

introduction 

^ The topics of this chapter are more "code like" and contain the 
kinds of commands that look frightening. At least that's how I 
interpreted them when I first saw them. Many of the functions 
can be done with commands we already know, but many cannot. 
Still others, as we will see, can be accomplished better using these 
new commands. Like so much else you have seen in this book, 

O what at first may appear to be "impossible" is really quite simple 
once you get the idea. More importantly, by playing with the 

O commands, you can quickly learn their use. 



The first thing we will learn about is the ASCII code. ASCII 
(pronounced ASS-KEY) stands for the AMERICAN STAN- 
DARD CODE for INFORMATION INTERCHANGE. Essen- 
tially, this is a set of numbers that have been standardized to mean 
certain characters. In VIC-20 BASIC the CHR$ (character string) 
^ command ties into ASCII and can be used to directly output ASCII. 
As we will see, the CHR$ command is very usefiU for outputting 
special characters. 

O The next commands have to do with directly accessing locations 
in your computer's memory. The first, POKE, puts values into 

O memory and the second, PEEK, IooIb into memory addresses 
and returns the values there. We will examine several different 
uses of these two commands. These commands are essential for 

^ producing certain types of graphics and sound. 

n 
n 



The ASCII code and CHR$ Functions u 

In a couple of places we have used control characters in programs, ^ 

such as CTRL-9. In the program all we saw was something like 

the following: ^ 



PRINT "< INVERSE R>": REM CTRL-9 



What that means is that we enter the CTRL-9 between the quote ^ 
marks, but an inverse R is there. Unfortunately, we cannot see ^ 
the GTRL-9 when we list our program to printer or screen; so we 
have to use a REM statement to let us know what's there or 
remember that an inverse R is really a CTRL-9. Another way to 
accessanycharacterswewant, including control characters, is to \^ 
use CHR$ commands and the ASCII code. In APPENDIX A 
there is a complete listing of ASCII which you will want to exam- ^ 
ine. Whenever we want to access a character, all we have to do 
is to enter the CHR$ and the decimal value of the character we ^ 
want. For example, enter the following: ^ 

o 



PRINT CHR$(65) <RETURN> 

You got an A. That's simple enough and not too interesting. On 
the other hand, try the following little program, and 111 bet you 
couldn't do it without using the CHR$ function: 



10 PRINT CHR«(147) : REM USES ASCII 
FOR CLR/HOME 
20 0U« » CHR$(34) : REM USES ASCII \^ 
VALUE FOR QUOTE MARKS 

30 FOR I = 1 TO 20 s PRINT : NEXT : ^ 
PRINT CHR$(1B) i"HIT ANY KEY" 

40 PRINT CHR$(18) "TO CONTINUE OR O 
HIT" : PRINT 0U$ ; "0" ? OU* 5 " TO 

o 



50 GET AN$ : IF AN$ = "" THEN 50 
60 IF AN« - "0" THEN END 
70 GOTO 10 



RUN the program and look carefully. Note the quotes around the ^ 
Q. If we tried to PRINT a quote mark, the computer would think 
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it got a command to begin printing a string. However, but defining 
QU$ as CHR$(34) we were able to slip in the quote marks and 
not confuse the output! (Just for fim, see if you can do that without 
using the CHR$ command.) Also, did you notice how we began 
the program? Instead of using the CLR/HOME key, we used 
CHR$(147). We did not have to put in the quote (") marks around 
CHR$(147) as we did with CLR/HOME. Likewise, we used 
CHR$(18) instead of a CTRL-9 to set the inverse mode. To see 
what different characters you have available, RUN the following 
program: 

10 PRINT CHR$(ia7) 

20 FOR I = 32 TO 127 : PRINT CHR$<I)5 
: NEXT 

30 FOR I = 158 TO 191 : PRINT CHR«(I) 



Voila! There you have all of your symbols. Before we go on, though, 
let's see some other symbols simply by pressing two keys. Hold 
down the COMMODORE tey (in the lower left hand comer of 
your keyboard) and press the SHIFT key. The first set of letters 
were printed in lower case, and the symbols, beginning with the 
"spade" changed to upper case letters. Thus, depending whether 
or not the lower case letters are "on" or "off," CHR$'s will output 
different symbols. Now, to watch fiinny things happen to your 
screen, RUN the following program. 



\ ( ( fjr. in AimUTic MtAcref 

V- 
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10 PRINT CHR*(147) ^ 
20 FOR I B TO 31 

30 PRINT CHR*(I) 5 : NEXT *^ 

Not much happened since in that range of ASCII (from to 31) ^ 

you ran through the control characters. In feet, your system was ^ 
thrown into the UPPER/LOWER case mode without your even 

touching the COMMODORE and SHIFT teys. To get used to ^ 
your increased power over your computer, try the following little 

programs: ^ 

10 PRINT CHR*(ia7) <U 
20 LB« - CHR$ (50) : RB$ - CHR«(48) 
30 CO* = "VIC" + CHR$(fl5) + LB* + RB* ^ 
40 L = 11 - LEN (C0*)/2 : PRINT 
SPC(L) 5 CO* ^ 
50 FOR I = 1 TO 20 : PRINT CHR*(32) : 
NEXT 



10 PRINT CHR*(147) 
20 FOR I = 1 TO 144 
30 PRINT CHR*(18) ; 
40 PRINT CHR*(28); 
50 PRINT CHR*(32) • 
60 NEXT Q 
70 PRINT CHR*(31) 

80 REM *» BEFORE YOU RUN THIS» SEE IF \^ 
YOU CAN FIGURE OUT WHAT WILL HAPPEN 



On the last program, you will get an idea of the use of CHR$ ^ 
commands with graphics. The red bar was created using CHR$(32), 

a space, after the color red had been set with CHR$(18) <CTRL- ^ 
9> and CHR$(28) <CTRL-3>. The color was reset to blue with 

CHR$(31). In the next chapter on graphics, we will use the CHR$ ^ 

command a good deal in creating pictures, charts and graphs. ^ 

The following program is a handy little device for printing out all 
of the CHR$ values to screen. Save it to tape or disk to use as a 
handy reference guide to look up CHR$ values and symbols. \^ 
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CHR$MAP 

10 PRINT CHR$(147) 

20 B = 33 

30 GOSUB 300 

40 FOR I = B TO B+33 

50 IF I = 34 THEN GOTO 400 

60 IF I = 128 THEN GOTO 200 

70 PRINT i; ". ="» CHR$(I) ♦ 

80 NEXT 

90 B = I 

100 PRINT : PRINT "HIT ANY KEY" 
110 GET A$ : IF A» = "" THEN 110 
120 PRINT CHR$ (147) 
130 GOT0 30 

200 PRINT : PRINT : PRINT "HIT ANY 
KEY" 

210 GET A$ : IF A$ » "" THEN 210 

220 PRINT CHR* (147) 

230 GOSUB 300 

240 FOR I = 161 TO 191 

250 PRINT i; ". CHR$(I) » 

260 NEXT 

270 PRINT : PRINT : PRINT "HIT ANY 
KEY" 

280 GET A$ : IF A$ = "" THEN 280 

290 PRINT CHR$(147) : END 

300 FOR I = 1 TO 2 : PRINT " CHR$ / 

S"» ! NEXT 

310 RETURN 

400 PRINT I ! ". =" ! " ' ' " » : REM 
THERE ARE 2 SHIFT 7'S BETWEEN THE 
QUOTE MARKS 
410 GOTO 80 

The program, CHR$ MAP, can be used as a handy reference for 
you to look up the CHR$ values of different symbols. You may 
have noticed that the program branches to a subroutine at line 
400 if I = 34. The reason for that is because once a quotation 
mark - CHR$(34) - is encountered, inverse brackets will be printed 
in the rest of the output. To avoid that, we made a "phony quote 
mark" using two apostrophes (SHIFT 7). This left a gap between 
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34 and 25, but it looks a lot better than all those inverse brackets! 
Also, we left out CHR$ values which would either lock up the 
dispUQT, clear the screen, change the colors or somehow mess up 
the output. See if you can make a program which will include 
useful CHR$ values (such as CTRL-9 and colors) but not destroy 
the output. 

POKES and PEEKS : 

Looking inside Your vic-20's iMemory 

At first you won't have too many uses for POKES and PEEKS, 
but as you begm exploring the full range of your computer's capac- 
ity, they will be used more and more. Basically, a FOKE command 
places a value into a given memory location and a PEEK command 
returns the value stored in that location. For example, try the 
following: 

POKE 1000 » 255 : PRINT PEEK (1000) 
<RETURN> 
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^ that value into location 1000 and PRINT PEEK (1000) printed 
out the value of that address. That's relatively simple, but more 
^ is going on than storage of numbers. 

The key importance of POKE and PEEK involves what occurs in 

a given memory location when a given value is entered. In some 
O locations nothing other than the storage of the number will occur, 

as in our example above. However, with other memory locations, 
O very precise events occur. What we will do in the remainder of 

this section is to examine some of the more useful locations for 
^ POKEing and PEEKing in your VIC-20. We will not be getting 

into the more complex elements of POKEs and PEEKs, however. 
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A TALE OF TWO NUMBER SYSTEMS 

When using POKEs and PEEKs, we use decimal numbers 
for accessing locations. However, much of what is written 
about special locations in your PROGRAMMER'S REF- 
ERENCE GUIDE available for your VIC-20 is written in 
HEXADECIMAL, generally referred to as HEX. Since 
we've used decimal notations for counting all our lives, it 
seems to be a "natural" way of doing things. However, dec- 
imal is simply a "base 10" method of counting and we could 
use a base of anytlung we wanted. For reasons I won't get 
into here, "base 16", called HEXADECIMAL, is an easier 
way to think about using a computer's memory, and 1;hat's 
why so much of the notation we see is in HEX. HEX is 
counted in the same way as decimal except it is done in 
groups of 16, and it uses alphanumeric characters instead of 
just numeric ones. You can usually tell if a number is HEX 
since they are typically preceded by a dollar-sign (e.g., $45 
is not the same as decimal 45), and often there are alphabetic 
characters mixed in with numbers (e.g., FC58, AAB, 12C). 
The foUowing is a list of decimal and hexadecimal numbers. 



Decimal 


Hexadecimal 





$0 


1 


$1 


2 


$2 


3 


$3 


4 


$4 


5 


$5 


6 


$6 


7 


$7 


8 


$8 


9 


$9 


10 


$A 


11 


$B 


12 


$C 


13 


$D 


14 


$E 


15 


$F 


16 


$10 
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As you can see, instead of starting with double digit numbers at 
10, hexadecimal begins double digits at decimal 16 with a $10. In 
the nugor memory locations of interest in your VIC-20 PRO- 
^ CRAMMER'S REFERENCE CUIDE, both the decimal and 
hexadecimal numbers are given. 

n 

o 
o 

o 
o 

n 



A ROTTEN TRICK!! 

When you start POKEing and PEEKing into different loca- 
tions of your VIC-20, you will not always get what you expect. 
In the decimal addresses from through 1023, and from 
about 5000 through 8191, you will be pretty safe since this 
is the Working Storage RAM and User Basic area. However, 
your BASIC programs begin at 4096 and you can mess them 
up with POKEs. (If you sdd RAM, you will have additional 
"safe" locations.) For example try the following program: 

100 PRINT CHR$(147) 
110 FOR I - 4096 TO 5000 
120 POKE I »255 
130 NEXT 

RUN and LIST the program to see what happens. Now if 
you slipped that routhie into one of your programs and gave 
it to a friend, it would lock up his machhie, and that would 
be a Rotten Trick! Of course, you wouldn't ever do anything 
like that. Would you? 



139 




Now let's take a look at some places to POKE. We will begin with 
your text screen. 



Poking the Text screen 

Another use of POKE is to enter a character to a location on your 
text screen. Each character has a different value between and 
255. Your screen can be envisioned as a set of addresses on a 22 
by 23 grid beginning with decimal location 7680 and ending at 
8185. That gives you exactly 506 locations on your screen where 
you can place text. The addresses are contiguous, and by using 
FOR-NEXT loops, it is a simple matter to enter sequentM lines 
of text. Or, using POKEs, you can put text anywhere on the 
screen you want. The only problem is that when you POKE in a 
character, it has to have a "background" otherwise you will get a 
white-on-white character which is invisible. The simplest wi^ to 
POKE in visible letters is to fill the screen with some character 
and then POKE in characters "on top" of them. For example, the 
following program first fills the screen with X's with a simple 
PRINT statement the weqt you already know. Then, it POKEs 
the letter A into the same positions on the screen. 
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10 PRINT CHR«(147) 

20 FOR I » 1 TO 506 : PRINT "X" 1 : 
NEXT 

30 B - 7680 : E - B -f 506 

40 FOR I » B TO E : POKE 1*1 : NEXT 

50 MAIT 197 »64 : MAIT 197> 64»64 



For the time being dont worry about line 60. We will discuss the 

'WA.IT conunand further on in this chapter. (In the above appli- 
O cation, it simply stops execution of the program until a is 

pressed. No, your program didnt lock up on you, just press a 
O iosy.) When you RUN the program, you will see the X's and then 

the A's fill the screen. When you press a key and see the READY. 
^ message and prompt, you wiU notice an A inside the prompt. Run 

the cursor to the right with the CRSR key and you will notice 

that the A will be there all the way to the lower left hand comer 
^ of the screen. The address of that position is 8185. If you move 
^ the cursor to the right beyond the comer, the A will disappear 
^ from inside the cursor since the bottom portion of the screen will 

be cleared — ^"scrolled"— moving aU text up a few lines. To better 
^ see what's going on and prevent the "scroll" in the program change 

the value 506 in line 20 to 505. Now you will be able to see all the 
^ A's except the one in the lower left hand comer. 




n 



141 



u 

In the above program we used an "offset" in line 30, E = B + , , 
506, with 506 being the offset. This is an important concept in 
programming, especially when dealing with POKEs and PEEKs. 
Basically, an offset is a number that will add or subtract a specified 
value. In defining the variable E, the of&et is the difference between 
the E)nding address in screen memory and the B)eginning address. 
There are two different ofGsets in the following program to note. 
The first is 127, used in determining the maximum address for 
the loops beginning in lines 20 and 40. Since we want to POKE in ^ 
128 characters (from to 127), we set our first offset to 127 and 
then terminate our screen location at the offset plus our beginning O 
location. Since we begin at (1024-1), we will end at 127 since 
that is our offset. Secondly, we use an offset of 128 in line 60 to ^ 
get the inverse characters we generated in our first set. That is 
because any character we POKE in firom to 127 has the inverse ^ 
same character at a value of the first character plus 128. Thus, , . 
for any character we want to display in inverse, we simply add 
128 to the original POKE value. ^ 

10 PRINT CHR$(147) 

20 FOR I = 1 TO 506 : PRINT "X"5 : 

NEXT ^ 

30 FOR I = 7702 TO (7702+127) 

40 POKE I »( 1-7702) : NEXT ^ 

50 FOR I = 7834 TO (7834+127) 

60 L = 1-7834 : POKE I »L+128 : NEXT 

In order to easily see what characters are produced with different ^ 
values we POKE into screen locations, the following program 
allows you to INPUT a value and then displays the character on ^ 
the screen for you. Of particular interest in this program are lines 
70 and 80. Line 70 prints out a message and ends it with an equal 
( = ) sign, but unless you enter the code for an equal sign (61), you 
never see the equal sign printed out. The reason for this is the 
POKE in line 80. It POKEs in the value you entered with the 
INPUT statement at the screen address where the " = " equal 
sign would go. In fact, the " = " equal sign is printed out and then 
quickly covered with the value POKEd in with the variable X. In 
POKEing in values, it is imnecessary to use semi-colons to place ^ 
characters next to one another. Simply POKE them into adjacent 
addresses. Try the following program to see how the various ^ 

<J 
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valuescanbePOKEdinusingthePOKEcodes. (Note: The values 
^ for characters POKEd in are not the same as CHR$ values for 
■ the same characters.) 



n 
n 



10 PRINT CHR«(ia7) 

20 PRINT CHR$ (19) : PRINT: PRINT ; 
PRINT "ENTER A NUMBER" 
^ 30 INPUT " FROM TO 255 "! X 

40 IF X > 255 THEN 10 

50 PRINT CHR*(19) : FOR I = 1 TO 11 : 

PRINT : NEXT 
O 60 PRINT "THE CHAR FOR"; X 

70 PRINT "IS--> =" 
O 80 POKE (79BB + 4) » X 

90 PRINT : PRINT : PRINT "HIT ANY KEY 

FOR" 

100 PRINT "MORE OR '0' TO QUIT"; 
110 GET HK* : IF HK$ = "" THEN 110 
^ 120 IF HK» < > "0" THEN 10 

n 
n 

n 
n 
n 
n 
n 
n 



AUTO-REPEAT KEYS 
You rosy have noticed that if you hold down the space bar 
or cursor keys, they will automatically repeat. Wouldn't it 
be nice if aU the fc^s would repeat themselves? Well, they 
will if you enter POKE 650,128. If you decide you don't like 
the auto-repeat k^, just POKE 650,0 to turn them off again 
(instead of turning off your computer!). Tell your friends 
that you opened the inside of your computer and soldered 
on special parts to make your computer do that. If th^ 
believe you, it serves them right for not learning about how 
usefiil ti[ie POKE command can be. (Do not offer to "fix" 
their k^ for $34.95.) 



WAIT 



In the above programs we used WAIT with some numbers to stop 
^ the program imtil a k^ was pressed. The WAIT command is 
poorly explained in most numuals and poorly understood by most 
^ users. However, there are a number of applications where you 
might want to use it. As we saw, using the sequence, 

n 



n 
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WAIT 197 » 64 : WAIT 197>B4»B4 

stops execution until a key is pressed. The results are pretty much ^ 
the same as using a GET statement which loops back on itself 
until a keypress is detected. If there is no third number in the 
statement, a "zero" is assumed to be the third number. (The above 
explanation is highly oversimplified, and rather than attempt an ^ 
explanation of a fairly advanced concept here, take a look at "All 
About Commodore's WAIT Instruction" by Louis F. Sander in 
the January 1983 issue of COMPUTE ! magazine. The article will 
go into the technical details for you.) In the meantime, the foUow 



ing are some useful applications of WAIT: ^ 

WAIT 197 »Ba ^ 
Stop execution while a key is being pressed. 

10 FOR I = 1 TO 100 

20 PRINT I 

30 WAIT 197 »B4 

40 NEXT O 

When the nimibers begin scrolling down the screen, press *^ 
any key and they will stop until you release the key. ^ 

WAIT B53» 1 fl : WAIT B53 » 1 

Stop execution until the SHIFT key is pressed. 

10 PRINT CHR$(147) 1^ 
20 PRINT s PRINT s PRINT "PRESS 
THE SHIFT KEY" 

30 WAIT B53. 1»1 : WAIT B53 » 1 
40 PRINT : PRINT : PRINT "THANKS* O 
I NEEDED THAT!" 

Accessing Machine Language Subroutines 



The SYS command can be a useful tool in speeding up your pro- 
grams. A SYS command "runs" a machine-level subroutine in ^ 
your computer's ROMs or in memory. In the VIC-20 PROGRAM- 
MER'S REFERENCE GUIDE there is a listing of several dif- 
ferent SYS commands, but the following two will give you an idea , 
of what you can do with the command: 
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SYS 64802 (Sets your computer to its original "power on" 
status.) Put a program into memory and then SYS 64802 
to see what happens. 

SYS 65511 (Closes all files.) When you forgot what files 
are opened, you can shut them all down with this com- 
mand and then open the ones you want. You will not get 
an error statement even if all of your files are closed. 



CHART IT! 

In addition to having labels stuck all over my computer, I 
have a number of charts. The nice thing about a chart is that 
it has everything from a single category together in one 
place. You should make or buy or somehow get your hands 
on charts which will summarize SYSs, POKEs, and other 
handy locations and addresses. Also, in severad computer 
magazines, you can find charts. Malffi copies of the charts 
and using rubber cement, paste them to cardboard and keep 
them handy. 



Play It Again viC! : computer Sounds 

Now that we have seen that besides simply POKEing numbers 
in empty memory locations, we can also POKE in values at special 
locations to get some immediate result, we are ready to take a 
look at the VIC-20's fantastic music capabilities. Actually, we won't 
be dealing just with music, but with about any sound we want. 
However, like the rest of this book, we will keep it simple and 
provide programs and instructions on how to get started. 

To begin with, when we start making sounds, we will be using 
special memory locations. When these locations are POKEd, sound 
will be emitted frx)m your television's speaker. So before we go 
any further, turn up the sound on your TV, (If you have hooked 
up a monitor without a speaker, these exercises will not work.) 
At first, what we will be doing will look extremely complicated, 
but as we go on, it will become simpler since we will see that we 
can make certain settings and SAVE these settings to tape or 
diskette, and then enter notes or sounds with only a few numbers. 

To begin let's take a look at the locations we will be POKEing and 
what they do. 
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1. VOLUME, Address: 36878. This sets the volume of , , 
the output to a maximum of 15. Usually we will want to 

set the volume at this level when we are getting used to , j 
the sounds that can be produced. We will use the variable 
VL for volume. 

2. MUSIC 1-3. Addresses: 3687^ to 36876. These are 3 ^ 
"speakers" which can be used to make musical notes. Think 

of them as three overlapping octaves with the highest 
being the highest address (36876) and the lowest being 
the lowest address (36874). We will use the variables Ml, ^ 
M2 and M3 for the three musical speakers. 

3. NOISE. Address: 36877. This fourth speaker can be 

used for making "noise," such as explosions, alien atomic ^ 
laser blasters and any other racket you want in your pro- 
grams. If you are making games, it will come in handy. ^ 
We will use the variable NS for it. 

As each of the above locations are POKEd, different sounds are 
emitted. For example, if we POKE VL, 10 our volume value would ^ 
be 10, and so we would have high/medium volume level. However, 
before we can POKE our variables, we have to define them first. ^ 
So, let's start our program by defining the above variables. (Save 
the first part of the program on tape or disk as "SOUND VARI- 
ABLES" so that whenever you want to write a sound or music . , 
routine, you won't have to re-type all of the values.) 
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10 PRINT CHR» 
20 ML = 3B878 



30 Ml = 
40 M2 = 
50 M3 = 
60 NS : 
70 REM 



36874 
36875 
36876 
36877 



(147) 

REM (VOLUME 

REM LO MUSIC 

REM MED MUSIC 

REM HI MUSIC 

REM NOISE 



Now that we have defined the variables to POKE, we will now 
add the values to be POKEd in. In order to get a good idea of 
what is happening and the kind of results you will get with dif- 
ferent values, we will make a series of INPUT statements so that 
you can easily test out different sounds and notes depending on 
what values you use. (Note that the volume range is from to 15 
while the music and noise is from 128 to 255). 

100 PRINT : PRINT : INPUT "MOLUME 

(i5=MAX)" ;yx 



110 
120 
130 
140 
160 



PRINT 
INPUT 
INPUT 
INPUT 
REM 



"MUSIC 
"NOISE 
"SOUND 



(1-3) 
( 4 ) " ; 
l^ALUE 



OR" 

m 

(128-255)' 



S^> 



"DURATION"! D% 
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Now we have a routine for entering the values for the locations 
we will POKE. All that's left is to output the values and listen to 
our sounds! 

200 POKE VL» VIZ 

210 POKE (Ml-1) -I- nx, SU 

220 FOR DU = 1 TO DX : NEXT DU 

230 POKE VL» : REM TURN OFF SPEAKER 

240 POKE (Ml-1) + MZ»0 : REM CLEAR 

SOUND 

250 GOTO 10 : REM DO IT AGAIN 

Be sure the sound on your TV is turned up, and RUN your pro- 
gram. Try all different kinds of combinations until you begin get- 
ting what you want. Note that for this test we did not use the 
music and noise variables, but instead, we used "M%" as an of&et 
from Ml-1, the lowest address plus the "speaker" number we 
wanted. Also, note that in line 240 we "cleared" the soimd by 
POKEing a "zero" into our current "speaker." Delete line 240 to 
see what happens when the sound is not cleared. 

Summary 

This chapter has ventured into the VIC-20's memory, and while 
you are not expected to understand all of the nuances of our dis- 
cussion, it is hoped that you have a general idea of how ASCII 
values work and a little about addresses and locations. Most 
important is that you have tried out some of the commands intro- 
duced and attempted to use them in your programs. The more 
you use different commands, the more you begin to understand 
what is happening. 

The CHR$ function introduced ASCII values. Some of the uses 
of CHR$ allow us to access characters not available in our 
programming. 

The POKE command enters a value to a decimal address and the 
PEEK command retrieves a value from an address. Special loca- 
tions in your VIC-ECKs memory have special functions, such as the 
ASCII screen values. More advanced uses of POKE and PEEK 
can provide a way of virtually writing machine-level subroutines. 



148 



CHAPTER 7 

using Graphics 



introduction 

One of the nicest features of the VIC-2e is its graphics capability. 
Basically, there are two kinds of graphics: (1) Screen Graphics 
and (2) Bit Graphics. Screen graphics are something like text 
except that we use a lot more color and figures instead of letters 
and numbers. The way the graphics are used, however, we can 
access both graphics and text simultaneously. Tbia feature is espe- 
cially useful for labeling our graphics, sudi as charts or figures 
we may wish to create. As a matter of fact, you should have seen 
some of the graphics when you pressed the SHIFT or COMMO- 
DORE key and one of the other keys simultaneously. 

Bit graphics are wholly different from screen graphics, and thqr 
are a good deal more difficult to use. However, bit graphics give 
you an incredible amount of flexibility and power in creating fig- 
ures in fine detail. Once you become adept at using bit graphics, 
there is far more you can do to create graphics on your VIC. 
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SCREEN GRAPHICS 



PRINT "^SHIFT-Z>" 



Screen graphics are very simple to use, since you can enter figures 
directly from the k^board. To create a single figure, PRINT that ^ 
figure in the same way you would a letter or number. For example, 
if you 



you will get a diamond figure. However, to create more mterest- 
ing graphics, you will want to enter commands from the Program \^ 
Mode. One way this can be done is to write a series of PRINT 
statements, entering the drawing as you go along. For example, O 
let's mate a graphic playing card. Well keep it simple and program 
a two of spades. (It would be a good idea to SAVE this program ^ 
to disk or tape, as well as the others in this section. SAVE them 
under different file names since, even though some will have the ^ 
identical results, they are programmed differently.) ^ 

<J 

150 ^ 



n 



10 PRINT CHR*(147) 
20 PRINT "<SHIFT-U> -C? SHIFT-D's> 
{SHIFT-I>" 

30 PRINT "{SHIFT-G> 2 {SHIFT-A> 5 
SPACES <SHIFT-H>" 

a0 PRINT "tSHIFT-O 7 SPACES ^SHIFT- 
H>" 

ai PRINT "{SHIFT-G> 7 SPACES -CSHIFT- 
H>" 

an PRINT ''<SHIFT-G> 7 SPACES iSHIFT- 
H>" 

50 PRINT "{SHIFT-G> 3 SPACES <SHIFT- 
A> 3 SPACES {SHIFT-H>" 
60 PRINT "{SHIFT-G> 7 SPACES <SHIFT- 
H>" 

70 PRINT "{SHIFT-G> 3 SPACES <SHIFT- 
A> 3 SPACES {SHIFT-H>" 
80 PRINT "{SHIFT-G> 7 SPACES tSHIFT- 
H>" 

82 PRINT "<SHIFT-G> 7 SPACES <SHIFT- 
H>" 

84 PRINT "iSHIFT-G> 7 SPACES ^SHIFT- 
H>" 

90 PRINT "{SHIFT-G> 5 SPACES 2 
<SHIFT-A> {SHIFT-H>" 
100 PRINT "{SHIFT-J> <7 SHIFT-F's> 
{SHIFT-K>" 

When you are finished writing the program you should be able to 
see a "Two of Spades" on your screen - even before you RUN the 
program. When you do RUN it, the screen will clear and a "Two 
of Spades" will appear in the upper left hand comer of your TV. 
In the same way, you can draw anything else you want with the 
^ different shapes and characters on your keyboard. REMEMBER, 
to get the figiire on the right side of the key, use the SHIFT ker^ 
Oi and to print the characters on the left side of the k^, use the 
COMMODORE k^. 

n 

Note we used line numbers 40, 42 and 44 and 80, 82 and 84. This 
^ was to suggest that these lines are identical. To key them in, all 
you have to do is key in line 40 and when you come to lines 42, 44, 



n 
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80, 82 and 84, simply use your editor to change the line number. 
Everything else will be automatically changed. (While you're at 
it, you might as well do the same thing with line 60.) 

Let's take another look at our "Two of Spades" and see if we can 
improve the program. First, we noted that lines 40, 42, 44, 60, 
80, ^ and 84 are identical as are lines 50 and 70. Instead of having 
to re-write those lines, let's use our GOSUB commands, treating 
the repeated lines as subroutines. Using your editor, clumge line 
40 to line 200 and line 50 to 300. Now, add a colon and RETURN 
after lines 200 and 300. Now, change lines 40, 42, 44, 60, 80, 82 
and 84 to read GOSUB 200, and lines 50 and 70 to read GOSUB 
300. Add line 110 END. The program should now look as follows: 

10 PRINT CHR$(147) 

20 PRINT "{SHIFT-U> <7 SHIFT-D's> 

{SHIFT-I>" 

30 PRINT "{SHIFT-G> 2 <SHIFT-A> 5 

SPACES <SHIFT-H>" 

40 GOSUB 200 

42 GOSUB 200 

44 GOSUB 200 

50 GOSUB 300 

60 GOSUB 200 

70 GOSUB 300 

80 GOSUB 200 

82 GOSUB 200 

84 GOSUB 200 

30 PRINT "{SHIFT-G> 5 SPACES 2 

{SHIFT-A> <SHIFT-H>" 

100 PRINT "{SHIFT-J> {7 SHIFT-F's> 

{SHIFT-K>" 

110 END 

200 PRINT "-CSHIFT-O 7 SPACES 

{SHIFT-H>" : RETURN 

300 PRINT "{SHIFT-G> 3 SPACES 

{SHIFT-A> 3 SPACES {SHIFT-H>" : 

RETURN 

Now that didn't save a lot of programming time, but if you begin 
to think of screen graphics as you would any other program, you 
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will want to look for shortcuts to save both memory space and 
minimize programming redundancy. Now, to see how easy it is to 
change the two of spades to a three of hearts, using your editor, 
change the two of spades in lines 30 and 90 to a three of hearts 
- 3 {SHIFT-S}, and the spade in line 300 to a heart. Now change 
line 60 from GOSUB 200 to GOSUB 300. This time when you 
RUN the program, you have an entirely different card and you 
simply made a few changes. Try out different suits, and see if you 
can nuike an entire deck. 



EDIT IT!! 

If you did not use your editor to change the above lines, you 
are working too hard! All that is required when you edit a 
line is to enter the changes and hit RETURN. To change a 
line to a different line number, simply enter the new line 
number over the old line number. For example, to change 
line 40 in our original "Two of Spades" to line 200, simply 
use the cursor key to walk up to line 40, place the cursor 
over the "4", enter "200" and press RETURN. When you 
LIST the program, line 40 will still be there in its orig^ 
form, but there will now be a line 200 identical to line 40. 



coloring Your Graphics 

If all of the graphics we did were in the two shades of blue on 
your screen, it would be pretty dull. However, if you do not have 
a color TV or monitor, the colors will appear as different shades 
of black and white or green (if you have a green screen monitor). 
The different color patterns will create different density in the 
lines and figures you create. If you have something other than a 
color TV or monitor, it is best to experiment with white (using 
CHR$(5) or CTRL-2) until you get used to the commands. Later 
when you become accustomed to the line patterns created on a 
non-color screen, you can mix them for different effects. 

Assuming you have a color screen, it might be necessary to adjust 
your TV/monitor to get the proper colors. One way we can do that 
is to make a color test chart program. The following program uses 
only half of your VIC-20's range of colors, but that is because we 
can access only half using the keyboard or GHR$ commands. Well 
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get to the second half of your colors in a bit, but for now we'll 
make our color chart so that you can adjust your TV set. (Leave 
out the REM statements when you enter the program.) 

10 PRINT CHR$ (1«7) : FOR V = 1 TO 7 ^ 
i PRINT : NEXT V : REM CLEARS SCREEN 
AND TABS DOMN 7 PLACES ^ 
20 FOR I = 1 TO 8 : READ C(I) : NEXT 
: REM READS IN THE CHR* VALUES FOR 
THE COLORS IN DATA STATEMENT IN LINE 
100 

30 FOR J = 1 TO 8 

40 PRINT CHR* (18)5 CHR*(C(J))i : FOR 
K = 1 TO 18 : PRINT CHR* (32) 5 : NEXT \^ 
K ! REM TURNS ON THE "COLOR ACCEPTOR" 
•CCHR*(18)> AND THE NEXT COLOR AND KJ 
THEN PRINTS 30 SPACES. 

50 PRINT : NEXT J : PRINT CHR*(31) <J 
60 PRINT SPC(4)! "COLOR CHART" 
100 DATA 5f 28* 30 » 31* 144* 156* 
156* 158 : REM THE CHR* C0DE8 FOR THE 
COLORS ^ 

Run the program and adjust your set. Once that's done, we can ^ 
begin doing more with different colors. 



BACK TO NORMAL 

Since we will be changing the screen to all kinds of colors, 
remember, to get it back to normal press the RUN/STOP 
and RESTORE keys simultaneously. 



15 PRINT CHR*(18); CHR*(144) 



Let's go back to our 'Two of Spades" program. Since spades are ^ 
black, let's turn our card from light blue to black. To do that, 
LOAD your 'Two of Spades" program into memory and add the 
following line: ^ 

That was easy. Do the same with the "Three of Hearts" program, , , 
but instead of using CHR$(144) use CHR$(28) for red. Play with 
the different colors for a while to see what you get. The following ^ 
chart shows each color and its associated GHR$ value. 
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O COLOR CHR$ VALUE 

r> White 5 

Red 28 

Green 30 

Blue 31 

O Black 144 

_ Purple 156 

^ Yellow 158 



Cyan 159 

Now let's make a simple bar graph using a combination of screen 
graphics and a little text at the bottom of the screen. 



o 

10 PRINT CHR«(i47) 
20 INPUT "TITLE OF PLOT" 5 T* 
30 PRINT : PRINT : INPUT "HOW MANY 
r) PLOTS (1-7) "5 PX : IF PX > 7 THEN 10 

an FOR C - 1 TO PX : READ C(C) : NEXT C 

50 FOR I = 1 TO PX 

60 PRINT "VALUE OF PLOT«" ; I 

70 INPUT "(1-20)"; P(I) : IF P(I) > 

20 THEN B0 

80 NEXT I 

^ 90 REM «*« END INPUT BLOCK *** 
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10 print chr$(147) 

20 print : print : input "max value 

--> " ;mv 

30 n - 1:nn - mu : rem for more 
precise calculations let n = .1 
40 if nn > 20 then n - n + 1 : nn - 

MV / N: GOTO 40 
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100 PRINT CHR* (147) : S=2 \J 
110 FOR I = 1 TO PX 

120 PRINT CHR*(19) W 
130 FOR V = TO <20 - P(I)) : PRINT 
: NEXT y ^ 
140 FOR FT = 1 TO P(I) 
150 PRINT CHR*<18) 5 CHR$(C(I))5 
SPC(S) ; CHR*(32) ; CHR*(32) : NEXT PT 
160 PRINT CHR*(31) ! TAB(S) 11: ^ 
S=S+2 

170 NEXT I : PRINT CHR$(28) ; : FOR LN 
= 1 TO 22 : PRINT CHR$(100)! : NEXT 
LN 

180 L = 11 - LEN(T$)/2 : PRINT ^ 
CHR$(31 ) ; SPC(L) 5 T* 

190 GET A* ! IF A$ = "" THEN 190 \^ 
200 REM *»# END OUTPUT BLOCK ### 
500 DATA 31 » 20 # 30 f 144 » 156 ♦ 158 » ''^ 
159 : REM CHR* COLOR CODES EXCEPT FOR 
WHITE W 

RUN the program and see how nicely you can present data graph- ^ 
ically. The program is severely limited in that it does only a max- , , 
imum of 7 plots and values from 9 to 20. It is simple to change 
the number of plots above 7. Just change the trap value to a higher ^ 
number, change the number of colors, change the of&et (S vari- 
able) and make the bars narrower by using one CHR$(32) in line \^ 
150. Changing the values to above 20 requires more sophisticated 
manipulations, however. This is because 20 represents the max- KJ 
imum length of a vertical plot and still puts in the material at the 
bottom of the screen. Using a two bar plot, we will examine how 
to rater any range of numbers we want. (Leave out the REM 
statements.) ^ 



50 FOR I = 1 TO 2 

60 PRINT "PLOT VALUE"; i; : INPUT 
PV(I) 

70 PV(I) = INT (PV(I) / N) 
80 NEXT I 

S0 REM *** END INPUT BLOCK *** 
100 PRINT CHR$(147)! : FOR PL = 1 TO 2 
110 C* = CHR*(32) + CHR*(32) + 
CHR$(32) + CHR*(32) : REM MAKING BARS 
4 SPACES MIDE 

120 PRINT CHR$(1S): FOR Ms0 TO (20- 
PV(PL)) : PRINT: NEXT 

130 FOR PT = 1 TO PU(PL) : PRINT CHR*( 18) 
CHR*(28)! SPC(PL # 6)! C$ : NEXT PT 
140 NEXT PL 

150 FOR LN - 1 TO 22 : PRINT CHR«(30) ; 
CHR$(100); : NEXT 
160 PRINT CHR* (31) 

170 PRINT SPC(fl)! "PLOT 1"; SPC(2) 5 
"PLOT 2"! 

180 GET A$ : IF A* = "" THEN 180 



In order to understand what happened, we will go over the sig- 
nificant lines and e:q>laln each. 

1. In line 30 the variable NN was defined to equal the 
maximum value (MV) entered in Une 20. 

2. In line 40, the crucial line for creating a proportional 
scale, NN is compared with 20 to find if the maximum 
value is greater than 20. If it is greater, then the counter 
variable N is incremented by 1 and NN is re-defined to 
be the value of MV divided by N and looped back to the 
beginning of the line for another comparison. As soon as 
the value of N increases to a point where the maximum 
value, MV, divided by N is not greater than 20, the loop 
exits. Whatever the value of N is at that time will be used 
in the rest of the program to divide any value entered. 
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FOR EXAMPLE: 

The value of MV is established to be 100. Since 100 
is greater than 20, lis added to N and 100 is divided 
by 2 resulting in the value of NN equaling 50. Since 
50 is still larger than 20, N is incremented to 3. ^ 
When MV is divided by 3, the result is 33.33. Again 
it is larger than 20; so tiiere is another loop. The ^ 
program loops one more time. When N is equal to 
5, MV divided by N equals 20. This time, when the W 
comparison to 20 is made, it is found that NN is not 
larger than 20 and so the line is exited and the value ^ 
of N is established at 5. No matter what value is 
entered, as long as it does not exceed the maximum ^ 
value, there will be no errors since aU plot values . 
PV (1), etc., will be divided by 5. Since 100 is the ^ 
maximum value to be entered, 20 is the maximum 
value which will be charted. 



3. Two values for PV (I) are entered in line 60, and in 
line 70, PV(I) is divided by N. The INT command is intro- 
duced to provide an integer (whole number) for charting. 



FOR THE PERFECTIONIST WITH SOME TIME 

We incremented N by 1 each time we passed through our 
test loop in line 40. If we wanted to get a finer value, we 
could have incremented N by .1 or .01 or even .00001! This 
would give us a nearer minimum value by which to divide 
PV(I) and still keep it proportional. However, it would take 
longer for the loop to &id the minimum value of N. Change 
the program to see the different results in the charts. The 
smaller the increment, the doser to the top of the chart the 
maximum value appear, but the longer the program will 
take to execute. 
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4. In line 110, C$ is defined as the concatenation of 4 
spaces, CHR$(32). This is to make our graph bars 4 spaces 
wide. 

5. Lines 120 through 140 chart our plots, very much as 
was done in our first chart program. 
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We have spent a good deal of time working on charts in screen 
graphics, but it is important to see the practical applications of 
such graphics. Often users see screen graphics simply as some- 
thing to draw mosaic pictures on and nothing else; but, as we have 
seen, it is possible to make very good practical use of them as 
well. Now let's have a little fun with animation before going on to 
POKEing graphics in the screen. 




Animation in screen graphics can be used in games and for special 
effects. However, we will only touch upon some elementary exam- 
ples to provide you with the concepts of how animation works. 
Basically, by placing a figure on the screen, covering it up and 
then putting it in a new position, you can create the illusion of 
moving figures. It works in exactly the same way as animated 
cartoons. A series of frames are flashed on the screen sequen- 
tially. Even though each individual frame has a stationary figure, 
by rapidly flashing a series of such frames, the figures appear to 
move. Your computer does the same thing. For example, the fol- 
lowing little program appears to bounce a ball in the upper left 
hand comer: 



10 PRINT CHR$(147) 
20 PRINT "{SHIFT-0> " 
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REM SPACE 



BETMEEN SHIFT-0 AND SECOND QUOTATION 
NARK 

30 FOR I = 1 TO 100 : NEXT 

40 PRINT CHR* (19) : PRINT » <SHIFT- 

0>" : REM SPACE BETWEEN FIRST 

QUOTATION MARK AND SHIFT-Q 

50 FOR I = 1 TO 100 ; NEXT 

60 PRINT CHR$(19) s GOTO 20 

What appeared to be a moving "ball " was actually a figure being 
placed on the screen, erased, and then replaced in a different 
location. Now let's do the same thing on the vertical axis and use 
cursor movement within our program. Also, just for fun, let's add 
some sound and special effects. 

10 PRINT CHR$(ia7) : REM *** BEGIN 

ANIMATION BLOCK *** 

20 FOR I = 1 TO 23 

30 PRINT TAB(10)i "<SHIFT-0> <iiP- 

CURSOR>" : REM A MHITE AND INVERSE 

BALL MILL APPEAR ON YOUR SCREEN 

40 FOR J = 1 TO 50 : NEXT J : REM 

DELAY LOOP TO SLOW MOVEMENT 

50 PRINT TAB<10)! "<SPACE>" : REM 

PUTS SPACE WHERE BALL WAS 

60 PRINT : REM FORCE DISPLAY DOWN ONE 

LINE 

70 NEXT I 
80 GOSUB 200 

90 PRINT TAB(10)5 "*" s REM *** END 
ANIMATION BLOCK *** 
100 GET A$ : IF A* = " " THEN 100 
110 END 

200 REM *«* SOUND EFFECTS *** 
210 POKE 36878 »15 : REM TURN ON SOUND 
220 POKE 36877 »200 : REM MAKE NOISE 
230 FOR DU » 1 TO 150 : NEXT DU : REM 
8ET DURATION 

240 POKE 36678 »0 : POKE 36677*0 : 
RETURN s REM TURN OFF SOUND AND 
RETURN 
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By experimenting with different algorithms, you can create a wide 
range of effects. If you have played arcade games with movement 
and sound, you now have an idea of how they were created. Now 
go ahead and start working on that SUPER SPACE BLASTER 
ALIEN EATER game. 

Now that we have an idea about how we can make things move, 
let's do some more work with color. First, we will see how to 
change the background color and border of our screen, and then 
we will examine the screen and color memory maps in the VIC- 
20 to put anything anywhere in any color on our screen. 

lb begin, let's go back to our "Two of Spades" program. Now, we 
already noted that the card should be black instead of light blue, 
but every card player also knows that "green felt" is the correct 
background for the "table." To change the background and border 
colors, we use the following POKE: 

POKE 36879,n = Background Color + Border Color 

Load your 'Two of Spades" into memory, press CTRL-1 to change 
the drawing color to black, and now POKE 36897,93. When you 
RUN the program now, you will have a black card on a green 
background. Since the borders of card tables are made of wood, 
let's change the border to yellow (a light maple since we do not 
have brown) with a POKE 36879,95. There's our black two of 
spades on what looks more like a card table! (To get everything 
back to normal, remember just to press RUN/STOP and 
RESTORE.) 

It is quite simple to change the colors of the background and 
borders. You simply POKE 36879, n, with the value of "n" deter- 
mining the screen/border color combination. 

To get used to what's available, the following program gives you 
a quick trip through the various background and border colors. 
(To see the value of a given combination press the S key. Other- 
wise, press any to see the next combination.) 

10 PRINT CHR$<147) 
20 B - 8 
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30 FOR I = i TO 16 
40 FOR J = B TO B + 7 
50 POKE 36879 » J 

60 FOR V = 1 TO 22 s PRINT SPC(8) ; 
"VIC-20" s NEXT V 
70 GET A* : IF A* = "" THEN 70 
80 IF A* = '8' THEN GOSUB 200 O 
90 NEXT J 

100 B = J + 8 ^ 
110 NEXT I 

200 REM *# PRE88 '8' TO SEE VALUE *# ^ 
210 PRINT CHR*(U7) : FOR Y = 1 TO 7 
! PRINT : NEXT Y ^ 
220 PRINT "THIS COMBINATION ="5 J 
230 GET R$ ! IF R$ = "" THEN 230 
240 RETURN 



When you RUN the program, experiment with difEerent text colors 
as well by pressing CTRL and l^s 1 through 8 before you RUN 
the program. You will find that certain text colors are more or 
less clear with certain background colors. (White on white is very 
difficult to read!) O 

Now we will see how to access both color and characters by O 
POKEing in values to screen locations. As you know, your screen 
is a ^ by 23 matrix. Each element of the matrix is represented ^ 
by an address in your computer's memory. Your screen's memory 
map begins at 7680 and ends at 8185, giving you 506 locations to ^ 
put something on the screen. By POKEing these locations with 
different values, you are able to place characters on the screen ^ 
anywhere you want. The problem is that it is first necessary to 
PRINT something on the screen so that we can see the characters 
we POKE in. However, by POKEing in colors, we can color our 
characters and make them visible and colorful without having to 
overlay them on PRINTed characters. For example, clear your 
screen and POKE 7680,1 : POKE 38400,2. In the top left hand 
comer of your screen, a red A appears. But note the location of 
your cursor. It is still where it was when you entered your POKEs. 
That is because you did not PRINT the letter at the location of ^ 
the cursor, but instead you accessed a memory location. You also 
POKEd another area of screen memory reserved for your char- O 



acters' colors. The color addresses begin at 38400 and end at 38905. 
The following program will first POKE in the characters and then 
the colors. The characters will become visible only when th^ are 
"painted" with the color POKEs. 

10 PRINT CHR«<147) 

20 FOR I = 7680 TO 8185 : POKE I» 1 : 
NEXT I 

30 FOR J = 38400 TO 38905 : POKE J»Z 
: NEXT J 

It does not matter which order lines 20 and 30 are in. As long as 
bolk a character and color have been POKEd into the same posi- 
tion on the screen, they both will appear. 

Now let's look at the color memory map. It begins at location 
38400 and ends at location 38905. Again, it is 506 locations; think 
of it as an overly on your screen map. The upper left hand comer 
of your screen map is 7680 and on your color map it is 38400. In 
the above program we first ran through the character locations, 
and then the color ones. Since we coordinated the locations, we 
were able to color all of our characters. 

Now at this juncture, you may be asking yourself, "How in the 
world am I expected to figure out one of 506 screen locations, then 
one of 127 character codes and then superimpose 506 different 
color map locations with one of 8 colors on top of the screen map 
and get it in the correct place?" Actual^, it is not as difficult as 
it sounds; like everything else having to do with such calculations, 
let your computer do the work! The following is a step-by-step 
outline of how to set up a program to do your calculations using 
variables. 

BS = 7680 ^-Beginning location of your screen map. 
EC = 38400 4-Beginmng location of your color map. 
CS = XXXX ^-Current location (with XXXX bdng a 
number from 7680 to 8186) of your character on the screen. 
OF = CS - BS 4-Your offset based on the difference 
between your current location and the starting location 
on the screen map. 

CC = BC + OF 4-Color map location to place color. 
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CI = XX ♦-Character code for screen character with XX ^ 
being a value from to 127. 

C2 = XX <-Color code with XX being a value from 
to 7. 

u 

Essentially, the way to determine the mutual location for the screen 
and color map is to have your computer count the number of ^ 
locations between the beginning of the map and the current loca- 
tion. Since both maps use sequential addresses, the same offset 
can be used for both maps. The following program uses the above 
variables and allows you to place characters anywhere you want ^ 
them. ^ 

10 PRINT CHR$(147> . , 

20 BS = 7680 : BC - 38400 

30 INPUT "SCRN LOC 7680-8185" 5C8 i, 

Hid INPUT "CHAR CODE (0-127)"; CI 

50 OF = CS - BS : CC = BC + OF ^ 

60 INPUT "COLOR CODE (0-7)"! C2 

70 POKE C8»C1 : POKE CC »C2 O 

80 GET A« : IF A« - " " THEN 80 

80 GOTO 10 

Play with the program imtil you get used to the idea of what codes ^ 
give you different characters and colors in various locations. Once 
you're finished, try the following program to give you a "Beaded ^ 
Curtain" and ^ow another way to create effects with color using . 
programmed POKEs. 

10 PRINT CHR$(ia7) ^ 
20 BS ' 7680 : ES » 8185 : REM ^ 
BEGINNING AND ENDING ADDRESSES OF 
SCREEN MAP ^ 
30 BC = 38400 : EC » 38S05 

40 FOR I - BS TO ES : POKE I t 81 : ^ 
NEXT I 

50 FOR C » BC TO EC STEP 2 : POKE C »7 ^ 
I NEXT C 

60 FOR NC = (BC + 1) TO EC STEP 2 : ^ 
POKE NC»4 : NEXT 

70 FOR C = BC TO EC STEP 2 i POKE C # 5 ^ 
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: NEXT C 
80 FOR NC 
POKE NC»6 
90 GET S$ 



= (BC + 1) TO EC STEP 2 
! NEXT 

. IF S$ = " " THEN 90 



100 PRINT CHR»<l<a7) 

Now let's take an animated tour of our screen. Well start with 
location 7680 and travel with an arrow (code 62) to location 8185. 
First, though, the program will POKE the screen with the code 
for "black" from the beginning to the end of the color screen 
addresses. 

10 PRINT CHR$(ia7) 

20 BC - 39400 : EC = 38905 

30 BG = 7680 : ES = 9185 

40 FOR C = BC TO EC : POKE C »0 : NEXT C 

50 FOR I = BG TO ES : POKE I » 62 : 

FOR J - 1 TO 5 : NEXT J : POKE I » 88 

60 FOR K - 1 TO 5 : NEXT K : NEXT I 

To create animation on our screen, we first POKEd an arrow, 
gave it a short delay, then POKEd a space (code 96) into the same 
location, gave it a short delay, and then went on to the next mem- 
ory location. Using memory screen locations, we have £eu: more 
power over characters and animation, for we can go from any 
point to another without having to worry where the cursor is. 
Let's try a bouncing ball with POKEs. 



38805 : POKE Cf2 



10 PRINT CHR*(147) 
20 FOR C - 38400 TO 
! NEXT C 

30 FOR I = (7680 + 11) TO 8164 STEP 22 
40 POKE I tSi : FOR D = 1 TO 10 : NEXT D 
50 POKE I »86 : FOR X » 1 TO 10 : NEXT 
X : NEXT I 
60 FOR I - (8164 + 
-22 

70 POKE I »81 : FOR D = 1 TO 
80 POKE I »96 : FOR X « 1 TO 
X : NEXT I 
80 GOTO 30 



11) TO 7680 8TEP 



10 
10 



NEXT D 
NEXT 
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Note that we started with the top left corner and added an offset 

of 11 to put the ball in the middle of the screen. Then we reversed 

the process in line 50 . Location 8164 is located in the bottom left ^ 

comer of your screen. 

Suppose you don't want to have to look up every character you . 
1^ in, but you want to POKE it in so that you don't have to worry ^ 
about cursor location. Let's say you want to write your name or ^ 
a chart heading or anything else simply by using an INPUT state- 
ment and the keyboard. Well, you can use the screen map and 
POKE in characters. To do tMs, we will have to learn a new 
command, ASC. The ASC command converts the first character ^ 
of a string to a CHR$ code. For example, the ASCII code for an 
A is 65. If you keyed in ^ 

PRINT ASCC'A") O 

You would get ^ 

65 ^ 

Now, since the CHR$ values won't do you any good for POKEs, ^ 
we will have to convert the CHR$ value to a POKE value. If you ^, 
look at your screen display codes and the ASCII and CHR$ codes 
in your manual, you will see that the ASCII alphabet begins at 
65 and the screen codes at 1. To convert one to the other, we 
simply add or subtract 64, depending on which way we want to ^ 
convert. Since we want to convert ASCII into screen codes, we 
will subtract 64 from whatever ASC value we determine. For ^ 
example, key in the following: 

10 PRINT CHR*(147) 

20 FOR C = 38400 TO 38305 : POKE C» ^ 
:NEXT C 

30 INPUT "ENTER LETTER (A-Z) " ; A$ ^ 
40 A = ASC (A*) : Al = A-B4 

50 POKE 7880 »A1 ^ 
60 GOTO 30 ^ 

As you saw, every time you Ireyed in a letter, that letter would 
appear in bkick in the upper left hand corner of your screen Ooca- 
tion7680). 
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Now that we know how to get a single letter in a single location, 
let's see if we can get entire strings on the screen. To do this, we 
must do the following: 

1. Define or INPUT our string. 

2. Break up our string into individual letters so that we 
can get the ASCII values for each character. (The ASC 
command reads only the leftmost character of a string.) 

3. Convert the ASCII values into screen display codes. 

4. POKE in the codes. 

Using our offset of 64, this means that we will have to use our 
MID$ command to examine each character. However, when we 
come to a space (ASCII value 32), we will run into trouble since 
32 - 64 is a negative number. To fix that, well set a trap for spaces 
and define them with the correct POKE value - which also just 
happens to be 32! To keep things simple, we'll use the upper left 
hand comer of our screen to print our strings. (Omit REM 
statements.) 

10 PRINT CHR$(147) 

20 PRINT : PRINT : INPUT "NAME:"; NA« 

30 BS = 7680 : BC = 38400 

40 DIM A (LEN(NA$)) » A1(LEN(NA$)) : 

REM DIMENSION OUR ARRAYS IN CASE THE 

NAME IS LONGER THAN 11 

50 FOR I = 1 TO LEN (NA$) 

55 IF ASC(MID$<NA«»I »!) ) » 32 THEN 

Al(I) = 32 : NEXT I : REM TRAP FOR 

SPACES 

60 Ad) - ASC(MID$(NA»»I »1) ) : Al(I) 
= A(I) - 64 : REM CONVERT FROM ASCII 
TO SCREEN CODE 
70 NEXT I 

80 FOR P = 1 TO LEN(NA*) : POKE BS + 
P» AKP) : NEXT P : REM POKE IN THE 
CODE 

100 REM *** CHART COLOR *** 
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110 INPUT "COLOR CODE (0-7)"; C2 

120 FOR C » 1 TO LEN<NA«) : POKE BC + 

C»C2 : NEXT C O 

130 GET M« : IF M« = " " THEN 130 

140 RUN <U 



Now if you entered a period (.), you got an ILLEGAL QUAN- ^ 
TITY ERROR IN m. This is because tlie period, like the space, 
has an ASCII value of less than 65. If you want to fix the program 
to accept periods, take a look at line 55 where we trapped spaces. 
Try entering a similar trap for periods in line 56 so that you can 
enter periods without getting an error. Otherwise, you should i, 
now be able to see how to POKE characters in from the k^board 
and write programs using strings to be POKEd into the screen 
map. 



BIT GRAPHICS 



This next section is a little more involved and complicated than 
what we have done thus far with graphics. However, by beginning 
with simple applications, in no time at all you will be able to do 
fairly sophisticated work with bit graphics. Go over each step 
slowfy and try all the examples in this section to make sure you 
understand one part before goiiig on to the next. "Bit graphics" 
are also called "high resolution" graphics since the user is able to 
make fine, exact screen drawings. (However, we wiU only deal 
with the elementary aspects of this type of graphics, concentrat- ^ 
ing on changing the screen display of different k^s.) We will refer 
to the type of graphics discussed in this section as "bit graphics" O 
since we wiU be changing the "bits" in your k^board characters 
in terms of unique "pixels" on the screen. Essentially, we will be ^ 
turning on and off little dots of light in various locations to give 
us figures on the screen. Each little dot of light is a "pixel." ^ 

The first concept to examine is that of binary arithmetic. If we 
conceive of our figures as little dots on the screen that are together ^ 
in blocks, we can understand both binary math and figures. To 
begin, we will examine an 8 bit byte, numbered from 7 to 9, each ^ 
containing a or 1 - the only two numbers in the binary system. 
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For your computer to do math, it most convert everything into 
the binary system, and the 6502A microprocessor in your VIC- 
20 does this in chunks called "bytes" 8 "bits" long. The above 
binary number "01011010" is translated into the decimal number 
"90," and whenever you in "90", your computer translates it 
into "01011010." 




^ It makes this conversion automatically, but in order to make fig- 
ures, it will be necessary for you to do it. However, it is really 
^ quite simple. In binary arithmetic, since we have only two digits, 
whenever we run out of unique combinations, we tack on a to 
the end and start over again. We do the same in decimal math. 
For example, when we get to 9 in decimal, we start over with a 
"1" and tack on a "0" to get 10. Counting in binary, we have the 
following: 
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= \u 

1 = 1 

10 = 2 

11 = 3 

100 = 4 ^ 

101 = 5 

110 = 6 ^ 

111 = 7 

1000 = 8 ^ 

It is just like when we reach 9, 99, or 999, we start over with 1 ^ 
and add another digit. In binary, we start over with 11, 111, 1111, ^ 
etc. since we have only and 1 to work with. However, because 
we are not used to working in a binary system, we have to have 
a simple way to convert binary to dedmal. 

A simple way to make conversions is to remember that each bit 
has a different value whether there is a or 1 in the bit. Let's 
look at these values and how they can be used for conversion: 

All that we have to do is to add the sum of the "on values" together 

to get our decimal value. ^ 

Now the obvious question is "Why bother?" Well, since hit graph- ^ 
ics are made up of little dots or "pixels" which are created by the , 
various bits being "on", we can create any shapes we want by 
turning on the combination of bits we want. Then by converting ^ 
the binary patterns to decimal we can POKE in the bit patterns 
from BASIC. Tb begin, let's see how to create a figure. Here's \^ 
what youll need: 
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' 1. Some graph paper. 

^ 2. A pencil and dean eraser. 

3. A ruler. 

On the graph paper, draw an 8 wide by 8 long matrix. Each block 
represents 1 character. We don't have to use the entire block, but 
we must think of our bit graphics in terms of these blocks. Our 
drawing will be over characters which would normally appear at 
certain addresses generated in ROM; but since it is not possible 
O to POKE changes into ROM locations, we will have to make changes 
so that we can access characters in RAM and make changes there. 

In order to access character information from RAM instead of 
ROM, thereby enabling us to POKE in new information, we have 
to reset the pointers which tell the computer where to look for 
characters. (The VIC-20 PROGRAMMER'S REFERENCE 
^ GUIDE will come in handy here since it covers the technical infor- 
mation for this procedure.) We also have to protect our BASIC' 
^ program from being bombed by the new character information 
we enter. 

^ Tb get started, we will set up some lines which will relocate points 
^ and protect your BASIC program. We will use the memory area 
~ beginning at 7168 as suggested in the REFERENCE GUIDE. 

^ 10 POKE 388S9>255 : REM RESETS 

^ POINTERS FOR CHARACTER INFORMATION 

20 POKE 52»28 : POKE 56»28 : REM 
PROTECTS WORK AREA BY RESETTING 
"AVAILABLE MEMORY" 

'\^th these two lines, we are all set to begin entering information 
so that a keypress wiU result in something other than what would 
normally be foimd. Let's begin by changing a k^ to give us a 
"Copyright" symbol - a "c" inside a circle. Set up your 8 by 8 
^ matrix and number it across the top so that it appears as follows: 

n 



Bit Number 
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Below each bit in 8 rows, numbered from to 7, we will turn on 
a bit by entering a "1" and turn it off with a "0". Then by exam- 
ining tile "On value" for the bit, we can determine the decimal 
number by adding up each row. First, though, we will use "x's" 
to indicate where our figure is to be drawn. 
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Now we will turn the 'W into "I's" and the spaces into ' W to 
see what decimal values we will need to POKE into memory. 
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^ If you look carefully, you can see the circled "c" made up of "I's", 
^ and by adding up the values of rows through 7 we were able to 

determine the values we will be POKEing. To see exactly how 
^ this was done, let's take a look at a single byte. Let's take Row 3, 

the fourth byte (0-3, remember), to see how we arrived at our 
^ values in the right column. 

BYTE #4 (Row 3) 
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We're all set to POKE in our values, but we have to know where 
^ to put them and how to get them to our screen. Our POKEs set 
our new character information in RAM beginning at location 7168. 
^ Each character will receive its values relative to its position in 
ROM, and so, the character beginning with code "0" will take up 
the first 8 bytes, from 7168 to 7177. That character happens to be 
an "@" sign ("at" sign.) If we POKE m our new values for the 
"copyright" figure in those addresses, whenever we press "@" 
we should get a "c" with a square around it. (AU right, I know I 
O said a "circle" but it was easier to stick it into a square.) The 
following program will do just that. 

10 PRINT CHR$(147) 
^ 20 POKE 36869*255 

^ 30 POKE 52»28 : POKE 56 »28 : CLR 

^ 40 CB = 7168 : EB =CB + 7 

^ 50 FOR CR « CB TO EB : READ X : POKE 

CR>X : NEXT CR 
^ 100 DATA 255* 129 » 189 > 161* 161* 

189* 129* 255 
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When you RUN the program, there will be mush on the screen 
since you have not told the computer the correct output for any 
of your k^s except "@." However, when you press the "@" key, 
you will get the "copyright" symbol as clear as a bell! By changing 
the value of CB in line 40 by increments of 8, you can change 
which will display the "copyright" symbol. (Just use the "screen 
POKEs" as offsets.) For example, the following program wiU give 
you the addresses of 64 of the loyboard characters using the POKE 
offeets from CHR$ values. It will tell you at which address to 
begin for a specific k^ you wish to change. (The SPACE BAR 
key win appear as a blaidt.) 

10 PRINT CHR$(147) 

20 CH = 63 

30 FOR I s 64 TO 31 « 8 •«■ 64 8TEP 8 

40 N - (1-64) + 7168 

50 C » C + 1 

60 CH = CH ••■ 1 

70 IF C = 20 THEN G08UB 200 

80 PRINT " "i CHR$ (CH)i " BEGIN6 AT 
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90 NEXT I 

100 FOR I = 32 TO 63 
110 C = C + 1 

120 IF C = IS THEN GOSUB 200 
130 N = N ■>■ 8 

140 PRINT " "i CHR$ (1)1 " BEGINS AT 



n "5N 

150 NEXT I 
D 160 END 

200 PRINT : PRINT CHR» (18); " HIT 
O ANY KEY " 

210 GET A* : IF A$ = " " THEN 210 
O 220 PRINT CHR$ (147) : RETURN 

^ Now, to find the beginning address for any of the ksya, RUN this 
^ program. This will tell you what value to give the variable CB 
(line 4(J) in the bit graphics for any you want. 

^ The important thing to note in the program which generates unique 
^ characters is the arrangement of DATA statements in line 100. 
Notice how they are in the same sequential order as our rows in 
the matrix where we plotted our "copyright" symbol. By chang- 
ing the values of those numbers from to 255, you can create any 
^ figure possible in an 8 by 8 matrix. If you change several keys, 
you could make all kinds of interesting shapes and figures. 

n 
n 



Summary 



This chapter has examined most of the graphics available on your 
VIC-20, and even though there is more you can do with graphics, 

^ what we have covered will give you a good beginning in computer 
' graphics. (See Chapter 10 for programs which will do more, but 

^ be cautioned, they are more advanced!) 

^ An important concept to remember in using graphics is that they 
are programmed just like any other aspect of your VIC-20. As 

^ we saw in using the keyboard graphics, we can "draw" both by 
simply entering the characters from the keyboard or we can "pro- 
gram" figures, saving memory space and the amount of keyboard 
work which has to be done. As a general rule, whenever you can 
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create a figure with good programming, it is better to do so than ^ 
"strong arm" the graphi<» by simply entering graphic symbols 
directly firom the keyboard. ^ 

Animation is another feature of your computer which is important O 
to explore. Using CHR$ and POKE commands, it was possible 
to create the illusion of movement on your computer. The basic O 
principle is in putting a figure on the screen, erasing it, and then 
placing it in a different location. O 

We also learned a good deal about colors. Not only can the text 
be colored, but we saw how to change the screen and background 
colors in an array of combinations for different effects. Here we ^ 
relied a good deal on POKEs, but by letting the computer figure ^, 
out different combinations, it was a relatively simple procedure. 

Finally, we began exploring bit graphics. This was the first step ^ 
to total control over what appears on the screen. However, by 
systematically preparing a figure, re-arranging where the com- 
puter got its information and POKEing in data, it was possible to 
change individual pixels on the screen to whatever we wanted. 
However, there is still more for the intermediate and advanced O 
programmer, and if you like graphics, you will discover more to 
do on your VIC-20. O 

o 
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^ CHAPTER 8 

n 

n Data and Text Files with the Tape 
n and Disic System 

O Introduction 

^ In this chapter we are going to learn more about some advanced 

applications with the tape and disk system. We will be covering 
r-) two types of files: (1) Data files, and (2) Sequential Text Files. 

There are many similarities between data and sequential text 
O files. Your disk system's data files are a type of sequential file, 

and we might even consider the way in which your cassette stores 
O data to be a form of sequential text file. However, for the sake of 

clarity we will discuss each separately. 

Before beginning, I want to point out that the COMMODORE 
^ floppy disk system is a very sophisticated and smart device. For 

beginners, it can be difficult to understand some of its more 
^ advanced applications, and there is a very real risk of destroying 

programs and data on your disk. Therefore, in this section, we 
~ will take each step slowly and, even at the risk of redundancy, 
^ explain the various functions of commands dealing with your disk 

system. Also, we will not be dealing with the most advanced 
^ features of the disk operating system, for they are b^ond the 

scope of this book. However, we will be going to a "middle" range 

of sophistication, and it is strongly advised for those of you with 

a disk system to use a blank formatted disk on which you have 
O not accumulated programs. By doing so you will not inadvertently 

destroy valuable data and programs. (This comes from the voice 
O of experience, having clobbered numerous disks myself!) 

Data Files and Your cassette 

^ Wouldn't it be nice if, after keying in a lot of data, you could save 
_ it to your tape? For example, let's say you have created a really 
nice keyboard replacement character which takes up eight rows 
of a matrix, and you want to use that k^board replacement char- 
acter in a different program than the one for which you originally 

n 
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developed it. Instead of having to re-enter all the keyboard 
replacement character data, you could just load the data into any 
program you wanted. Well, using data fUes, you can do that and 
a lot more. You can save any kind of data, numeric or string, to 
tape and then usmg a special set of commands we will learn, load 
that data directly into your program. You can create a checkbook 
program which saves all of yoiur check entries and balances to 
tape, make a mailing list which creates, saves and retrieves names, 
addresses and telephone numbers, or even a list of your &vorite 
recipes. 

In Chapters 1 and 2 we discussed how to SAVE a program and 
retrieve it with LOAD on your VIC-20 using a computer cassette 
tape recorder. Both of these commands are executed in the Imme- 
diate mode. The commands we will now discuss are executed from 
the Program mode, but they too function to load and save infor- 
mation to your tape. They simply do it in a different format. To 
begin, we will review the different commands for working with 
data files, and then we will work with some programs employing 
these commands. 
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OPEN, INPUT#. PRINT# and CLOSE 

In order to prepare your cassette for reading or writing infor- 
mation from within a program, the tape file most first be "pre- 
pared" with an OPEN statement. The format is as follows: 

□PEN N»1*(0»1 or 2)»"FILE NAME" 

1) First, "N" can be any integer from 1 to 255 to reference the 
file. For example, you might want to reference your file with num- 
ber 21 (but any number between 1 and 256 would do just as well); 
so you would write 

□PEN 21 tetc. 

2) Second, since the device is the cassette recorder, the second 
number would be "1". Your cassette is always addressed as "1" 
and your disk as "8". 

OPEN 21 »1 *etc. 

3) Third, your file is prepared for reading with a 0, and writing 
with a 1 or a 2. If you want to write with an End-Of-File marker, 
use a "1", and for an End-Of-Tape marker use a "2". 

OPEN 21,l,0,etc. "(-Read a file. 

OPEN 21,l,l,etc. ^Vfiite a file with an End-Of-Ffle 

marker. 

OPEN 21,l,2,etc. «-WMte a file with an End-Of-Tape 
marker. 

4) Fourth, provide a reference name for your file. For example, 
let's say you want to save your k^board replacement character 
data of a figure you made, caUed "COPYRIGHT CHARACTER". 
You would write 

0PEN21 »1 »1 » "COPYRIGHT CHARACTER" 

or 

0PEN21 il »2» "COPYRIGHT CHARACTER" 
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To read that data, you would write 

0PEN21 »1 »0»"COPYRIGHT CHARACTER" 

It may appear to be somewhat involved, but once you get used to 
it, it is very simple. At the same it, it is quite flexible as well, 
since it is possible to open a number of different files simply by 
giving them different names. But usua%, you will want to CLOSE 
a file before OPENing another. To close a file, enter CLOSE and 
the file number. In our example, we would enter 

CL0SE21 

So while there is a lot to remember in OPENing a file, there is 
not much when it comes to CLOSEing one. 

The next command involves writing data to tape. Using the 
PRINT# command we can do this. The format for PRINT# is 

PRINT* »N»D 

where N is the file number and D is the data. For instance, stick- 
ing with our example, to print a number or string to tape, we 
would enter 

PRINT«21 »etc. 
If our data were strings, we would enter 

PRINT«21 fA« 
or if numeric 

PRINT«21»A (or AZ for inteifers) 

It is important to remember that PRINT# is not the same as 
PRINT, and you cannot substitute a question mark (?) as is pos- 
sible when using PRINT. That is, if you entered ?#, you'd get an 
error whesa. you ran the program even though when you LISTed 
it, it would appear as PRINT#. Just to show you, entor the 
fidkming: 
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20 PRINT»1 »5 

RUN the program, and you will get 7SYNTAX ERROR IN 10. 
O Now RUN 20, and you will get ?FILE NOT OPEN ERROR IN 

20. The format in line 20 is correct, but since the file is not open 
O you get an error. Now LI^ the program, and lines 10 and 20 

look identical! This is one case where LIST will not help in debug- 

ging a program. You must remember to write out PRINT# when- 
_ ever you use it instead of using the "?" shortcut. 

In the same w^ that PRINT# "prints" data to your tape, INPUT* 
"inputs" information into your computer.^w» the tape. It has the 
same format as PRINT# using the OPENed file's number and 
reads in numeric or string variables. 
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^ INPUT#21,A (or A% for integer numbers) Numbers 

^ INPUT#21,A$ <r- Strings 

Finally, we have the 6ET# statement which is formatted exactly 
like INPUT#, but like the GET command, it gets only one char- 

O acter at a time. However, it can read commas, colons and other 
characters which INPUT# cannot. It will not be used very much 
since most applications will want more than a single character, 
but when you want to read special characters not available with 

O INPUT#, GET# will come in handy. 

^ At this point we have commands to open a file, read from or write 
to a file and dose a file. However, before we continue, there is a 

^ special variable, &I, to examine. The variable ST is reserved for 

^ checking your tape to see if it is finished entering data. If ST = 
0, then more data is coming in. The End-Of-File or End-of-Tape 

^ marker has not yet been read. Therefore, we can loop back to 
read more data using ST within an IF/THEN statement. For 

^ example, the following format can be used 
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20 INPUT»21 »A$ 

30 PRINT A$ 

40 IF ST - THEN 20 



^ Line 40 checks to see if there is more data, and if there is , it 
loops back to line 20 to get it. 

n 
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Now that we have seen all of the commands for reading and writ- 
ing files from and to tape, let's take a look at an application. We 
might as well use a practical application, so we will make a list of 
our friends' phone numbers. Whenever we want to call a friend, 
aU we have to do is read the list frvm tape. First, we must create 
a list to enter names and save them to tape. After we have done 
that, we will write a program to retrieve the names and numbers. 

10 PRINT CHR$ (la?) 

20 REM »«» ENTER DATA »** 

30 INPUT "« NAMES TO ENTER'S N% 

40 PRINT s DIM NA$(NZ)» PH$(N%) 

50 FOR I = 1 TO N% 

60 PRINT "NAME«"5 I ; : INPUT" (FIRST 
LAST)"; NA*(I) 

70 INPUT "PHONE(XXX-XXXX)" 5 PH$(I) 
80 NEXT I 

100 REM »♦« SAUE DATA TO TAPE *** 

110 OPENl »1 »1 ^"FRIENDS' PHONES" 

120 FOR I = 1 TO N% 

130 PRINT»1 »NA$(I) 

140 PRINT»1 »PH»(I) 

150 NEXT I 

160 CLOSEl 

To use this program, get a blank tape and rewind your cassette. 
RUN the program, and you will be prompted to PRESS RE- 
CORD & PLAY ON TAPE when you have entered all the names 
and numbers you want. As soon as you press the play and record 
buttons, your screen will go blank and your tape recorder spindles 
will begin turning. When all the information is saved, the recorder 
will stop and the screen will reappear indicating that all your data 
has been saved. (Tape storage is relatively slow compared to disk, 
so to save time it is suggested to use just a few names {three or 
four} at first.) 

Now let's see if everything worked out according to plan. To do 
that we need a program to read our data; we will use INPUT# 
to read the names and numbers. Since botii the names and phone 
numbers were saved as strings, we can do the whole thing with 
a single string variable we will call DA$ for "DATA STRING." 
(Remember to rewind your tape before RUNning this program!) 
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^ 10 PRINT CHR*(l-a7) 

20 OPENl >1 »0»"FRIENDS' PHONES" 

30 INPUT«1 »DA* 

40 PRINT DA$ 

50 IF ST THEN GOTO 30 

60 CLOSEl 
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When you RUN this program, you will be prompted to PRESS 
PLAY ON TAPE. When you do so, the screen will go blank, and 
after a bit your text screen will reappear with all the names and 
phone numbers you entered. At this point you may si^, "Now just 
a minute here! I entered that data as two different string arrays, 
and this program read only a single string variable! What hap- 
O pened to the arrays and how was it possible to get all that infor- 
mation back with a single variable?" 

The answer to that question can be seen in how the data is stoired 
and what our program did. While the file was OPENed, wie 

^ INPUT# whatever data came along. As soon as it was in memory, 
we PRINTted it with our BASIC PRINT statement, not the 

^ PRINT# statement we use to print information to tape. The com- 
puter did not care whether the data entered into memory was a 
luune or a phone number, only a string, and as soon as that string 
was in memory it PRINTed to the screen. However, since the 
screen was blank, we could not see it being printed. In line 50 the 
program checked to see if there was more information in the file 
and if there was, it simply picked up and printed the next string, 
regardless of whether it was a name or phone number. To test 
this, simply enter PRINT DA$ firom the Immediate mode, and 
the last entry will be printed to the screen. 

n 

Now, let's make our program a little fancier and more useful. If 
^ you use this program to store friends' phone numbers, the list 

will eventually cover more than a single screen. Therefore, you 

will be able to see only the last screenful of names and phone 
^ numbers. What we need is a program to search for and find a 

specific name and then dose the file and print the name and nom- 
f-^ ber to the screen as soon as it has been located. 

10 PRINT CHR$(U7) 

20 INPUT "NAME TO LOCATE" ;NA$ 
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30 OPENlfl*0» "FRIENDS' PHONES" 
40 INPUT«1»DA« 

50 IF DA$ » NA$ THEN GOTO 100 
60 IF ST - THEN GOTO 40 
70 PRINT "NAME NOT FOUND" 
80 CLOSEl 
90 END 

100 REM «« PRINT OUT NAME AND NUMBER 
*«« 

110 PRINT DA$ : REM PRINT THE NAME 
FOUND 

120 INPUT«1»DA«: REM GET THE NUMBER 
130 PRINT DA$ : REM PRINT THE NUMBER 
140 CLOSEl 

Now you have a handy program far storing names and numbers 
to tape and retrieving a single name and number you want to calL 
The next problem is updating your ffle without having to re-enter 
all of the names. That is, once you have made your phone list, you 
mi^ want to add new names but you do not want to in aU the 
names you already have on your list. Can this be done? Yes, but 
we have to first read aU the names into memory from tape and 
then write them back to tape. There are several wi^ this can be 
done, and our example is simply one wi^. We will do the following: 

1. Load all the names and numbers on the tape into an am^. 

2. Input the new names and numbers on the end of the array. 

3. Rewind the tape and resave the old and new data to tape. 

10 PRINT CHR*(147) 
20 DIM NA«(30)» PH$(30) : REM DIM 
VALUE SHOULD BE NUMBER OF NAMES ON 
LIST PLUS THE NUMBER OF NAMES YOU 
MISH TO ADD 

30 OPENl fl »0» "FRIENDS' PHONES" 
40 N » : REM INITIALIZE COUNTER 
VARIABLE 

50 INPUT«1 »NA$(N) 
60 INPUT»1 »PH«(N) 
70 N = N+1 

80 IF ST s THEN 50 
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90 CLOSEl 

^ 100 REM *»• NEW DATA ENTRY **» 

110 INPUT "NO. OF NEW NAMES" 5NN 
120 FOR I = (N+1) TO (N+NN) 
130 INPUT "NAME" ;NA*(I) 
140 INPUT "PHONE";PH$(I) 
150 NEXT I 

200 REM *** COMBINE OLD AND NEM DATA 
AND PUT IT ON TAPE *«* 
r^ 210 NP = N + NN : REM COMBINED TOTAL 

OF ALL NAMES 
O 220 OPEN 1 #1 »1 ♦"FRIENDS' PHONES" 

230 FOR I = TO NP 
O 240 PRINT«1 »NA*(I) 

250 PRINT»1 »PH»(I) 
O 260 NEXT I 

_ 270 CLOSEl 

^ Make sure to rewind your tape as soon as all of the old data are 
^ loaded. In fact, it would probabfy be a good idea to insert a line 
^ to remind you. So add 

O 105 PRINT CHR*(U7) : PRINT "REMIND 

TAPE NOW!" : PRINT ! INPUT "PRESS 
O RETURN" !RT* 

^ That ought to remind you. 

Now let's go back to see how we can save bit character graphic 
^ information on tape. Also, we will see how we can load the infor- 
^ mation from tape and execute a program usmg the tape data. 
There is a word of caution in order, however. Sometimes there is 
more information on the tape than we want, and so it is important 
^ to load into memory just what we want and ignore everything 
else. This is a little inconvenient since we have to keep an ^ on 
^ all of our data and know how many pieces of data make up our bit 
character graphics. However, since that information is necessary 
anyway, our job is not too difficult. 

O To get started, we will create a bit character graphics and save 
it to tape. Well use our "copyright" character again. 

n 
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10 PRINT CHR$(147) : REM *»# CREATE ^ 
BIT CHARACTER *** 
20 DIM CC(8) 

30 FOR I - TO 7 : READ CC(I) : NEXT 
40 DATA 255 » 129 » 189 » 161 » 161»18g» 
129. 255 

100 *** REM BEGIN DATA 8T0RAGE TO ^ 
TAPE *#* 

110 0PEN1»1»1» "COPYRIGHT CHARACTER" 
120 FOR I = TO 7 

130 PRINT«1 »CC(I) ^ 
140 NEXT I ^ 
150 CL08E1 

We created the bit character graphics just as we would were it 
part of a program to make the character. If our character did not \^ 
use all 8 rows, we would have "filled in" those rows with 0's. By 
using the maximiom number of bytes in a bit character graphics ^ 
block, the smallest or largest character will still be 8 bytes. This 
would be because we filled in the empty bytes with 0's to bring ^ 
the total to 8 if the figure was less than 8. 

Now liet's load the bit character graphics firom tape and run it in 

a program. Be sure to save the following program, for with it you 

can load any bit character graphics firom tape you want and run 

it. This will save a good deal of time since, rather than having to ^ 

write a bit character graphics routine every time you want to ^ 

have a different character, all you have to do is load the program, 

set your cassette tape at the beginning of a bit character and run ^ 

the program. You can do this with any bit character graphics you 

want. ^ 

10 PRINT CHR*(147) O 
20 POKE 36869 » 255 

30 POKE 52 » 26 : POKE 56 t 28 : CLR 
40 CB = 7168 : EB - CB + 7 : REM CB 
CAN BE ANY "KEY" LOCATION. W 
40 REM *** END VARIABLE DEFINITION 
BLOCK **» 
50 REM 

100 REM *»» READ DATA FROM TAPE **» ^ 
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^ 110 OPENl »1 »0»"COPYRIGHT CHARACTER" : 

REM YOU CAN LOAD ANY BIT CHARACTER 
YOU MANT 
120 DIM R(8) 
130 FOR I = TO 7 
140 INPUT«1 » R( I ) 
150 NEXT I 

160 CLOSEl ! REM ALL DATA READ INTO 
MEMORY SO CLOSE THE TAPE FILE 
n) 200 REM **# CHARACTER CREATION BLOCK 

«»« 

O 210 FOR J = CB TO EB 

220 POKE Jf R(J) 
O 230 NEXT J 

^ No doubt you recognize our bit character graphics program from 
_ Chapter 7, but instead of reading DATA statements to get the 
^ character values, it does it from tape. Note we did not use the ST 
^ variable to check to see if the data was completely read in, but 
instead we closed the file as soon as we had loaded 8 bit character 
^ graphics values. This is to eliminate the possibility of any extra 
"noise" which might creep in from the tape. Also, it should be 
pointed out that it is possible to load multiple bit character graph- 
ics using this method. This is possible by reading either multiple 
bit character graphics saved to a single file, or, more usefully, 
character values from different files. Simply remember to use all 
of the methods for manipulating and creating bit character graph- 
ics we discussed in Chapter 7 with the only difference being tiiat 
^ we get our data from tape rather than from DATA statements. 



sequential Flies and the Disk System 



If you do not have a disk system, you can skip this section and go 
on to the next chapter. However, if you are considering purchas- 
ing a disk drive for your VIC-20, the following material will be of 
^ interest. In many respects storing data on disks is similar to stor- 
ing it on tape except the storage and retrieval process is much 
quicker. In fact, all of our examples in the previous section can 
be operated with the disk system with only a few minor changes 
in the format. Therefore, to get started, we will see how we can 
store data to disks using a slightly different format than we did 
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with tape. To do this we will examine the OPEN, CLOSE, 
INPUT#, PRINT# and GET# commands for disk. 

OPEN— To open a disk channel, we access the device number "8" 
instead of T' as we did with the tape. Having initialized the disk 
with the file number "15," we will OPEN another file number, say 
"9." Thus, we would enter 

OPENS «8»etc. 




\iSs>» for ^ m&vj 



Instead of using code numbers 0, 1 and 2 to write, read or write 
End-of-Tape, we use READ and WRITE, or more simply, R and 
W. However, we format it differently. We OPEN the file begin- 
ning with the file number and the device number and then enter 
the secondary address, and the rest of our file handling commands 
are in quotation marks. The secondary address should not be 15, 
which is used in error handling, or and 1 which are used by the 
operating system for loading and saving programs. The secondary 
address can be any number from 2 to 14. We will use 9 to keep 
things simple. 

0PEN9»8»9»etc. 

We begin the quotation marks with the drive number, "0" in the 
case of a single drive, followed by a colon and then the file name. 

□PEN9»8»9f"0e FRIENDS' PHONES tetc." 
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^ Next, we enter the type of file we will be using. For the time 
being we will use sequential files, indicated by SEQ. Finally we 
enter READ or WRITE , depending on whether we want to save 

-V information to disk (WRITE) or retrieve it from disk (READ). 
Thus, our file OPENing routine would look like this: 



n 



n 



OPENS »8»9» "0: FRIENDS' PHONES » SEO » 
WRITE" 



O Bbrtunatefy, INPUT#, PRINT# and GET# number use the same 
format as we did with tape. The number following each command 
O is the secondary address. So, if we wanted to PRINT# in our 
example, we would write 



PRINT«S 



n 
n 

since "9" is the secondary address. (Note: The number "9" is also 
^ the primary address, and by using the same number for both the 
^ primary and secondary ad(h*esses, we can minimize confusion.) 

^ Now to see how all of this goes together, we will re-do our original 
"FRIENDS' PHONES" program we created for tape. The data 

^ entry block is identical, and so we will do only the block which 
saves the information to disk. 

100 REM *## SAVE DATA TO DISK *♦# 
110 OPENS »8»9» "0:FRIENDS' PHONES* 
SEO»MRITE" 
r> 120 FOR I = 1 TO NX 

130 PRINT«S» NA(I) 
O 140 PRINT«9» PH(I) 

150 NEXT I 
160 CLOSES 



As can be seen, the main difference between t^ and disk is in 
the format in line 110. Otherwise, the disk and tape writing for- 
mat is identical. Likewise in retrieving information from disk, 
^ there are more similarities than differences between tape and 
disk. Also note that we were able to use the ST variable with disk 
1/0 (input/output) as we were with tape. 
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10 PRINT CHR$(U7) 

20 OPENS »8»S» "0:FRIENDS' PHONES* 

SEO»READ" 

30 INPUT»S*DA$ 

40 PRINT DA$ 

50 IF ST=0 THEN GOTO 30 

60 CLOSES 

To save some time, you can substitute "S" for "SEQ" and "R" for 
"READ". Line 20, with these abbreviations would read: 

20 OPENS »8»S» "0:FRIENDS' PHONES » S»R" 

Similarly, it is possible to do the same with the other file status 
words, but you can never use abbreviations with file names. 

Before going on to some more techniques using the disk system, 
there is a different technique for updating files than used with 
tape. As you remember from our tape program, we first read in 
all the data from our old file, added new data, then rewound the 
tape and simply wrote over the old material. The same technique 
works with a disk, but instead of rewinding, we use a special 
format when OPENing the file when we prepare to write over it. 
The following block shows how this is done. Note again the sim- 
ilarities and differences between it and the one we used for tape. 

200 REM *** COMBINE OLD AND NEM DATA 
AND PUT IT ON DISK »*« 
210 NP = N+NN : REM COMBINE TOTAL OF 
ALL NAMES 

220 0PENS*8»S»" 0:FRIENDS' PHONEStS»M" 

230 FOR I = TO NP 

240 PRINT«S» NA«(I) 

250 PRINT»9» PH$(I) 

260 NEXT I 

270 CLOSES 

The key to overwriting an existing file is the "@" symbol. You 
will remember that in SAVEing over any existing file on disk we 
used the same format. 
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rs 
rs 
rs 
rs 
rs 
rs 

rs 
rs 
r^ 
rs 
rs 
rs 
rs 
rs 
rs 
rs 
r*) 
rs 

rs 

rs 




Now that we have seen how to do a number of programs individ- 
ua%, let's mate a single program which will 1) Write files, 2) Read 
a single file or all the files, and 3) Add to a file. However, instead 
of using names and phone numbers, let's use names and addresses. 

10 PRINT CHR*(lfl7) : RESTORE s CLR 

20 PRINT "**»**"! CHR*(1B); "FILE 

MASTER" !CHR*(lflB)i "»*»»*" 

30 PRINT : PRINT : FOR I = 1 TO 5: 

PRINT I"." I PRINT ! NEXT 

40 PRINT CHR*(19): PRINT : PRINT : 

FOR I = 1 TO 5 : READ D« : PRINT 

SPC(5) ; D« : PRINT : NEXT 

50 DATA CREATE NEU FILE» ADD TO FILE* 

READ ALL FILES* READ SINGLE FILE 

60 DATA EXIT 

70 PRINT s PRINT CHR*<18)5 "CHOOSE BY 

NUMBER"; CHR$(14S) 

80 GET A : A < 1 THEN 80 

90 ON A GOTO 100 » 200 » 400 » 500 » 700 

100 REM *»♦ CREATE A FILE #»» 

110 PRINT CHR*(147) 8 PRINT s PRINT 

120 INPUT "HOW MANY NAMES" 5 N% 

130 OPENS »8»9» "0:ADDRESS LIST»S»M" 

140 PRINT«9»NZ : REM ENTER NUMBER OF 

NAMES IN FILE 
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AD$(NZ) f CT$(NZ) t 



GOSUB 1000 



150 DIM NA$(NX) t 
SA«(NZ} • ZI«(NZ) 
160 FDR I = 1 TO NX: 
GOSUB 2000 : NEXT 
170 CLOSES 
180 GOTO 10 

200 REM *»* ADD TO EXISTING FILE *** 
210 PRINT CHR$(147) : PRINT : PRINT 
220 INPUT "NO. OF NAMES TO ADD"; m% 
230 OPENS tS^S* "0:ADDRESS LIST»S>R" 
240 INPUT«9»NZ: REM SEE HON MANY 
NAMES ARE IN EXISTING FILE 
250 NPX = NX + NNZ 

260 DIM NA$(NPX>» AD$(NPZ) » CT$(NPX) 
SA«(NP%) f ZI$(NPX) 

270 FOR I = 1 TO NX : GOSUB 3000 : 
NEXT 

280 CLOSES 

290 OPENS f8»S» " 0:AODRESS LIST»S»M" 
300 PRINT»9» NPX 

310 FOR I - (NX-i-1) TO NPX t GOSUB 
1000 : NEXT 
320 FOR I = 
NEXT 

330 CLOSES 
340 GOTO 10 
400 REM *** 
410 OPENS »8»S» 
420 INPUT«S»NX 
430 DIM NA$(NX) t 
SA»(NX) t ZI»(NX) 



1 TO NPX : GOSUB 2000 3 



READ SUBROUTINE *** 
"0ADDRESS LIST»S»R" 

AD$(NX) » CT$<NX) » 



440 FOR I = 
NEXT 

450 CLOSES 
460 FOR I " 
NEXT 

470 PRINT : 
480 GET A$ 
430 GOTO 10 
500 REM *** 



1 TO NX i GOSUB 3000 



1 TO NX : GOSUB 4000 



PRINT "HIT 
IF A*=" " 



ANY KEY" 
THEN 480 



SEARCH SUBROUTINE *** 



510 PRINT CHR$(147) 
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520 INPUT "NAME TO FIND"; NA$ 

530 OPENS »8»9» "0ADDRESS LIST«S»R" 

540 INPUT«9>NZ 

550 DIM NA$(NZ)» AD»(NZ) « CT$(NZ) » 

SA$(NX) t ZI$(N%) 

560 FOR I = 1 TO N:^: GOSUB 3000 

570 IF NA$(I) = NA$ THEN GOSUB 4000 

580 NEXT 

5S0 CLOSES 

600 PRINT: PRINT: PRINT: PRINT "HIT 
ANY KEY" 

610 GET AN* : IF AN$ - "" THEN 610 

620 GOTO 10 

700 REM *»* EXIT *»* 

710 END 

1000 REM *** INPUT SUBROUTINE ««« 

1010 PRINT "NAME«";i; 

1020 INPUT NA$(I) 

1030 INPUT "ADDRESS"; AD$(I) 

1040 INPUT "CITY"; CT*(I) 

1050 INPUT "STATE"; SA$(I) 

1060 INPUT "ZIP CODE"; ZI$(I) 

1070 RETURN 

2000 REM *** PRINT« SUBROUTINE *** 

2010 PRINT»S»NA$(I) 

2020 PRINT«S»AD*(I) 

2030 PRINT«S»CT*(I) 

2040 PRINT»S»SA$(I) 

2050 PRINT«S»ZI$(I) 

2060 RETURN 

3000 REM *** INPUT« SUBROUTINE *** 

3010 INPUT»S»NA»(I) 

3020 INPUT»S»AD$(I) 

3030 INPUT«»S»CT$(I) 

3040 INPUT»S»SA«(I) 

3050 INPUT«S«ZI$(I) 

3060 RETURN 

4000 REM *** PRINT SUBROUTINE *** 
4010 PRINT : PRINT NA»(I) : PRINT 
AD*(I): PRINT CT*(I);"» ";SA*(I);" 

" ;zi$(i) 

4020 RETURN 
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Now that was a long program! When writing such a program, it ^ 
is a good idea to save your file about every 10-15 lines so that if 
you accidentally lose it, you can retrieve most of your work. It is O 
important to note several aspects of this program, including a 
new command, CLR. The CLR command clears all variables and ^ 
arrays. That is important in this kind of program since you may 
want to do different things with it while it is in memory. For 
example, you may want to add to your address list and then locate 
a single name. By clearing the variables and arrays every time 




you go back to the menu, you will not have incorrect values. ^ 



u 

Another important aspect to note is how the program is blocked 
into subroutines. Not only does this make it easier to read, but 
you can save a good deal of programming time by such organi- ^ 
zation. For example, in both the READ and SEARCH subrou- 
tines, the INPUT# subroutine is used. Thus, instead of having ^ 
to k^ in the INPUT# commands more than once, the program 
simply jumps to the single subroutine. In the next chapter we 
will add a subroutine to print out the names and addresses to a 
printer, and instead of re-writing the entire program, all it takes ^ 
is adding on another subroutine! ^ 

A final item you may have wondered about is using a string array , 

for Zip Codes, ZI$(n). Why didn't we use a real variable? Well, a ^ 

characteristic of the VIC-20 we noted was its propensity to drop ^ 
leading tKs with real and integer variables and arrays. If your Zip 

Code is (i)7734, you wouldn't want your computer to st^ it was ^ 
"7734." By using a string array, we retain the leading 0. 
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Summary 



In this chapter we learned how to save a lot of time by saving 
^ ffles to tape and disk. Data can be saved to your cassette tape for 
use later within a program. This is handy since it allows you to 
enter data at one time and then use it later without having to key 
in the data all over again. Of course this can be done within a 
single program using READ and DATA statements, but the user 
is stuck with that program for using the data. By storing it on 
O tape, it is possible to use it in many different programs. This is 
especially handy with bit character graphics you have created. 

O 

Using a disk system, it is possible to store data in sequential files 
much like saving data to tape. However, disks access the data 
much faster than tapes, and it is possible to have a single program 
do several different things with data files on disks. Tlie "File 

^ Master" program showed how a single program could be used to 
create, append, and read a single or multiple files. Care has to be 

^ tal^n to keep everything straight with such a program, but using 
sequential files increases the power of your computer a great deal. 

^ The practical applications of such programs are immense. 

O 

n 
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CHAPTER 9 
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^ YOU and Your Printer 

n 

O Introduction 

By now you should be used to "outputting" information to your 
screen, cassette or disk. When you write in PRINT "HELLO" 
you "output" to your screen. When you SAVE or PRINT# some- 
thing, you "output" to your tape or disk. In the same way that 
you access your screen, tape or disk, you can access your printer. 
It is simply another "output" target. However, you cannot LOAD, 

O INPUT or in some other way get anything from your printer as 
you can from your keyboard, tape or disk. (How are you going to 

^ get the ink off the paper and back into memory?) 

^ The procedures for getting material out to your printer and using 



n 



your printer's special capabilities requires certain procedures not 
yet discussed. Therefore, while mudi of what we will examine in 
^ this chapter will not be new in terms of the language of commands, 
it will be new m terms of how to arrange those commands. Also, 
^ we will see how we can use the printer in ways which have been 
done poorly using the screen. For example, no matter how long 
a program Usting is, it can be printed out to the printer, while 
long listings on the screen scrolled right off the top into Never- 
O Never land. Likewise, in Chapter 8, we made a handy little pro- 
gram for storing friends' phone numbers and another one for stor- 
ing names and addresses. Yfitii a printer we can print out our 
phone nombers or run off mailing labels with commands that out- 
put information to the printer. 

^ There are a lot of printers on the market for computers. However, 

^ to keep things simple and to show the maximum use of your VIC- 
20 with a printer, all examples will be with Commodore's VIC- 

^ 1515 printer. This printer will provide all graphic and text fea- 
tures you will need, and it is easily interfaced to the VIC-20 sys- 

^ tem. Besides, it is a very inexpensive printer. If you have another 
printer and an interface for the VIC-20, then you will have to rely 

n 
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heavily on your printer's manual. Unfortunately, many printer 
iwOTi^la are not very good for beginners since th^ tend to use 
highly technical descriptions of how to interface and operate their 
printers. Therefore, pay special attention to the codes used to 
turn on or off special features of your printer. This is usually done 
with a CHR$ command from BASIC, so usually all you will have 
to do is to follow the instructions in this book using the appro- 
priate code from your printer's manual. 




BEFORE YOU BUY A PRINTER!! 
The most important aspect in purchasing a printer is making 
certain it will interface with your VIC-20. Many times over- 
enthusiastic salespersons will tell buyers all the qualities of 
a printer and naively believe they can be used on any com- 
puter. This is simply not true! In order for a printer to work 
with a computer, it must have the proper interface; and the 
best printer in the world will not work with your VIC-20 
without such an interface. Therefore, when you buy a printer 
other tJian one made specifically for your VIC-20, make sure 
to buy the proper interface for it. The only certain way to 
insure the printer works with a VIC-20 is to have it dem- 
onstrated with your computer. The VIC-1515 and VIC-1525 
printers by COMMODORE will work with the VIC-20, but 
otherwise you should have the printer's ability to work with 
your computer shown to you. 
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^ Printing Text on your Printer 

^ The first thing you will want to do with your printer is to print 
— some text in "hardcopy." ("Hardcopy" is a really impressive term 

computer people use to talk about print-outs on paper. Use the 
^ term and your friends will be amazed.) Lilte your cassette tape 

and disk drive, it is necessary to first go through a number of 
^ steps to channel information to your printer. Let's review those 

steps now. 

^ OPEN— First, you OPEN a channel to your printer. On the VIC- 
1515, there is a switch in the back to make the device number 4 
or 5. We will use the 4 in our examples, so check to make sure the 

O switch is flipped to 4 before proceeding. (Remember on yotu* disk 
drive the device number is 8.) The sequence for OPENing the 

O channel to your printer is to enter a number between 1 and 255 
(well use lucl^ 7) and the device number,4. Here's how: 

n 

_ □PEN7»a 

_ Now your printer is ready to receive instructions to 7, the logical 
file number we used. 

^ CMD — The CMD command tells your computer to send output 
^ to your printer. You must use the file number (7 in this case) and 
not the device number (4). For example, enter 

n 
n 
n 
n 
n 
n 
n 
n 
n 
n 



CMD7 
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and you will hear your printer "crank" up and print out READY, 
as it usually prints to the screen. However, you will notice that 
it did not print READY to your screen. Now enter 

FOR I = 1 TO 10 : PRINT t NEXT 

and your printer will feed your paper 10 lines, just as it would to 
the screen had you not directed output to the printer with the 
CMD command. Until you turn off the output to your printer it 
will go there instead of to your screen. 

There is an important output difference between your printer and 
your screen we should note. Enter 

FOR I = 1 TO 80 : PRINT "X"! : NEXT 

and 80 "X's" will be printed to your printer in a single line. If the 
same command were printed to your screen, it would take up two 
lines. This is because your printer outputs 80 columns while your 
screen outputs only 22. 

PRINT# — You will remember that we use PRINT# in programs 
where we want to print our information to our tape or disk. Well, 
with your printer the same principle applies also. Let's say that 
you want to print out only a few things in a program and do not 
want everything going to the printer. If you used CMD, every- 
thing would go to the printer that would normally go to the screen. 
However, using PRINT# only the information following the 
PRINT# would. For example, suppose you want to have your 
screen prompt you with "Name?" and as soon as you enter the 
name it is printed to your printei^ you would want to use PRINT#. 
The format is 

PRINT«7i NA* 

or 

PRINT«7» "CHARLIE TUNA" 

or 

PRINT«7» 12345 
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Let's try a little program to print names to the printer to show 
how PRINT# can be used in programs where you want to use 
both the screen and printer. 



n 



10 PRINT CHR*(lfl7) 
20 PRINT : PRINT : PRINT "TURN ON 
PRINTER" 

30 PRINT : PRINT : PRINT "HIT ANY KEY" 

40 GET A$ : IF A$="" THEN 40 
O 50 PRINT CHR*(147) 

60 □PEN7»4 
O 70 INPUT "NAME TO PRINT" 5NA$ 

80 PRINT«7»NA» 

S0 INPUT "ANOTHER(Y/N)" ;AN$ 

100 IF AN*="Y" THEN 70 
^ 110 CL0SE7 

^ 120 END 

^ CLOSE — ^ThefinalcommandinaccessingyourprinterisCLOSE. 

As we can see in the above program, it closes the channel to the 

printer and turns it "off." For the most part CLOSE works pretty 
O much the same w^ as it does with the tape and disk systems; 

however, there is an important protocol involved. Before you 
O CLOSE the channel to the printer, you must enter PRINT#{fii} 

first. Therefore, if you OPEN a duumel to the printer, and use 
<^ the CMD command, you must first PRINT# before issuing a 
^ CLOSE command. For example, 

n 
n 



□PEN7»4 
CMD 7 

PRINT "HELLO HELLO" 

PRINT«7 

CL0SE7 



^ If you issued the CLOSE command without the PRINT# com- 
mand, you would run into problems. 

n 

n 
o 
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USTING PROGRAMS 

Since listing programs to one's printer is a good vray to de-bug a 
program or send it to a friend, it would be convenient to have a 
utility program with which we do just that. So, let's write a pro- 
gram ^aat will list your program to the printer. We will keep it 
short so that we can tack it on to the beginning of a program. To 
get started, load a program into memory and then add the follow- 
ing lines: 



1 0PEN7»4 

2 CMD7 

3 LIST 5 
a END 

Whra you BUN this program, it "turns on" the printer, and LISTs 
a program fr^m line 5 to the end of the program. When you are 
finished, enter PRINT#7 and CLOSE? to close the channel and 
the file. Unfortunately, you cannot "turn off" the CMD command 
ftx)m within the program using PRINT# and CLOSE as we did 
using only the PRINT# command. So be sure to turn it off from 
the Immediate mode after a listing. 

CHR$ to the Rescue 

The secret to using printers is in understanding what their control 
codes mean and how to use those codes. For example, the follow- 
ing is a partial list of codes provided with a CENTRONICS 737 
printer: 



Function 

Elongated Print 
Select 16.7 cpi 
Proportional 
Print 



Now, for most first-time computer owners, that could have been 
written by a visitor from another planet for all the good it does. 
However, there is important information in those codes and, once 
you get to know how, it is relatively easy to use them. 



Mnemonic 


Decimal 


Octal 


Hex 


ESC,SO 


27,14 


033,016 


1B,0E 


ESC,DC4 


27,20 


033,034 


IB, 13 


ESC,DC1 


27,17 


033,021 


1B,11 



O 
O 
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O To get started, forget everything except the "Decimal" and 
"Function" columns. Now, taking the first row, we have decimal 
^ codes 27 and 14 to get elongated print. To "tell" your printer you 
want elongated print you would use CHR$(27) + CHR$(14). To 
kick that into your printer you would do the following: 



0PEN7 »4 

PRINT«7» CHR*(27) + CHR*(14) + 
"MESSAGE" 



o 
n 

^ If you have a Centronics 737 or 739 printer, that would have 
printed the string "MESSAGE" in an elongated print. Likewise, 
for the condensed printing 16.7 cpi (characters per inch), you would 

O have entered CHR$(27) + CHR$(20) and for the proportional 
typeface, CHR$(27) + CHR$(17). Once you get the decimal code, 

O enter that code to the printer and it will do anything from chang- 
ing the type-face to performing a backspace ftmction. 

With other printers the same is true, but let's get back to the 
VIC-1515 printer we have been examining since it was designed 

^ with Commodore computers in mind. As we will see, like the 
' Centronics printers or any other, the VIC-1515 and VIC-1525 also 

^ use CHR$ commands to access the printer's different abilities. 
Let's look at the various CHR$ commands associated with the 

^ VIC-1515: 

n 
n 
n 

n 
n 



CHR$ 


FUNCTION 


ie&i3 


Line feed 


8 


Graphic Mode 


14 


Double width 


15 


Back to standard 


16 


Address of start print position 


27 


Escape (used in coi:u*unction with other codes) 


145 


Cursor up 


17 


Cursor down 


18 


Reverse printing 


146 


Turn off reverse 
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To see how the CHR$ functions work, we will use a simple pro- , . 
gram that will print out your name. Since we ah%ady know how 
to print out normal text, we will begin with expanded text. Look- 
ing at our chart, we see that CHR$(14) will expand our printout; 
so we will use it in our program. (Notice the Uwk of punctuation 
marks after the comma following the PRINT#7.) 

10 PRINT CHR«(147) 

20 OPEN? .4 : REM OPEN CHANNEL 7 TO ^ 
DEVICE 4 (YOUR PRINTER) 

30 INPUT "YOUR NAME"? NA$ ^ 
40 PRINT»7» CHR«(14) NA$ : REM NOTE 
POSITION OF CHR$(14) AFTER PRINT«7 ^ 
50 PRINT«7» CHR$(15) : REM RETURN TO 
NORMAL PRINT 
60 CL0SE7 



RUN tiie program and iffint out some names and note the expanded 
characters. (Try that on your typewriter!) 
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^ Now we have not done very much with upper and lower case so 
far, but in printing text to your printer, there are many times you 
will want to have upper and lower case characters. For example, 

^ in printing out names, you may want your printer to print out 

n 
n 



Captain John M» Smith 
instead of 



^ CAPTAIN JOHN M. SMITH 

but we need a special CHR$ command to do that. With the VIC- 
1515 printer the CURSOR DOWN mode, CHR$(17) wiU aUow us 
O to print upper and lower case. To do this, change lines 40 and 50 
in our above program to the following: 

40 PRINT«7» CHR»(17) NA$ : REM PRINTS 
^ IN CURSOR DOWN MODE 

50 PRINT«7» CHR*(lfl5) : REM RETURNS 
TO CURSOR UP MODE 

^ Now, press the COMMODORE key and SHIFT key simultane- 

^ ously to put your computer into the upper/lower case mode and 
RUN the program. If you used the sidft key for upper case and 
the non-shifted k^s for lower case, your printer gave you both 
upper and lower case. If you tried that before we made the pro- 
gram changes, even if you had your computer in the upper/lower 
case mode, your printout would have given you graphic characters 

O for the shifted ones instead of upper case. Go ahead and try it 
with the original program to see for yourself. 

O , 

Another trick is to use both upper and lower case and the expanded 
mode together. All that is required is to change the program so 

_ that both CHR$ commands are there together. Again, change 

' ' lines 40 and 50 to the following: 

^ 40 PRINT«7» CHR*(17) CHR$(14) NA$ 

^ 50 PRINT«7. CHR*(145) CHR$(15) : REM 

RETURN TO CURSOR UP AND STANDARD 

PRINT 
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When you RUN this program, you will see that it is possible to 
have more than a single non-standard (i.e., non-default) mode 
operating simultaneously. On some printers, such as the EPSON 
MX-80PT with GRAFTRAX PLUS and GEMINI STAR, it is 
possible to have not only expanded print but also itaUdzed, con- 
densed, double strike, emphasized and super/subscript type faces 
and any combination of them together. Using CHR$, aU of the 
different type styles can be used separately or in combination 
with one another. Finding the "CURSOR UP/DOWN" mode on 
other printers, however, may be tricky since they were not made 
specifically for the VIC-20. (Remember to get a demonstration at 
the store where you buy your printer!) 

Now that we have seen different ways to operate the type faces 
on the printer, let's do something practical. We will make a mailing 
label program for the VIC-1515/1525 printer. Various label man- 
ufacturers make adhesive labels with tractor-feed margins so that 
you can put them into your printer just like your paper. Our pro- 
gram will make labels that will print the addressee's name in 
expanded upper/lower case, the address in regular upper/lower 
case, and the city, state and 2dp code in upper case only. 

10 PRINT CHR$(147) : PRINT CHR$(lfl) : 
REM SHIFT TO UPPER/LOMER CASE 
Z0 0PEN7»4 

30 INPUT "NAME"! NA* 

40 INPUT "ADDRESS"? AD* 

45 PRINT CHR*(142) : REM SHIFT TO 

UPPER CASE 

50 INPUT "CITY"! CT* 

60 INPUT "STATE"! SA* 

70 INPUT "ZIP CODE" ! ZI$ 

100 PRINT»7» CHR$(17) CHR$(14) NA* 

110 PRINT«7» CHR*(15) CHR*(17) AD* 

120 PRINT«7» CHR*(145> CT* "» " SA* " 

" ZI* 

130 CL0SE7 

As you will see when you RUN this program, the screen shifts to 
the mode your printout will be in. This helps the user see on the 
screen what he/she wiD get on the printer. Note that different 
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CHR$ codes are used to shift the upper/lower case mode on the 
^ screen and on the printer. For example, CHR$(142) shifts the 

screen to upper/lower case while CHR$(17) shifts the printer to 
^ that mode. 

In order for the program to be more practical, we will need a few 
line feeds at the end of the printing so that your labels can be 
properly aligned. Depending on the size of your mailing labels, 
you will need a greater or fewer number of line feeds. Insert the 
following line into your program and adjust the size of the loop to 
align your labels properly. 

r) 
n 



125 FOR I = 1 TO 3 : PRINT«7 : NEXT i 
REM CHANGE "3" TO THE CORRECT NUMBER 
OF LINE FEEDS FOR YOUR LABELS 



^ In Chapter 8, we promised to insert a subroutine in the "FILE 
MASTER" program to print out the names and addresses to your 

^ printer. Well, that's just what we're going to do. To make the 
changes, load your "FILE MASTER" program into memory and 
make the following additions or changes in the program. (Good 
grief! Don't rewrite the whole thing!) 

n 

470 PRINT "HIT ANY KEY TO" : PRINT 
"RETURN TO MENU" s PRINT "OR 'P' FOR 
PRINTER" 

^ 485 IF A* = "P" THEN GOSUB 5000 

525 INPUT "SCREEN(S) OR" : PRINT 
"PRINTER(P)" SOP* 

570 IF NA*(I) = NA$(I) AND OP* ="S" 
THEN GOSUB 4000 

575 IF NA*(I) = NA*(I) AND OP* ="P" 
THEN GOSUB 6000 
^ 5000 REM **« PRINTER SUBROUTINE *** 

5010 0PEN7»4 
5020 CMD7 

5030 FOR I = 1 TO NX : PRINT NA*(I) : 
PRINT AD*(I) 
5040 PRINT CT*(I) 5 
ZI*(I) s PRINT 
5050 NEXT 
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5060 

5070 

5080 

6000 

««« 

6010 

6020 

6030 

6040 

PRINT 



PRINT«7 
CLOSE? 
RETURN 
REM **» 



PRINTER SUBROUTINE FOR 



REM *** SINGLE FILE *#* 

0PEN7»4 

CMD7 

PRINT NA$(I) 
CT*(I>5"» " 



PRINT AD$(I) 
SA*(I); " "; 



ZI«(I) 

6050 PRINT«7 
6060 CLOSE? 
6070 RETURN 

Sometimes you do not want your printout to begin at the left hand 
side of your paper or label. To position the starting point of your 
text, you use CHR$(16) and the number of spaces from the left 
you wish to begin printing. There are a number of different ways 
of doing this, but the simplest way to do this is to first print 
CHR$(16) and the starting position in quotes along with what you 
want printed. You must use a two digit number; thus, if you want 
to begin 5 spaces from the left, you must indicate it with "05" 
instead of "5." For example, try the following: 



0PEN?»4 
PRINT«7» 
COMPUTE?' 
CLOSE? 



CHR$(16) "05DOES THIS 



As you will see when you execute the above commands, your 
printer will print out only "DOES THIS COMPUTE?" and not 
the "05" even though it was in quotation marks. That was because 
the first two digit number encoimtered after the CHR$(16) was 
the "05." Now add another "5" so that the line reads. 



PRINT«7 » 
COMPUTE? 



CHR*(1B)"055DOES THIS 



and you will get, "5D0ES THIS COMPUTE?" Thus, after the 
second digit everything is treated as information to be printed 
out. 
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In some cases you may want to indicate the number of spaces 
using GHR$ instead of munbers within quotes. For example, you 
may wish to print text at different positions determined by a loop 
and want your next position in relation to the last, and so the 
position is determined by CHR$(I), with "I" being the current 
loop position. This can be done, but it is tricky because the CHR$ 
must be the ASCII value for the number. For example, a "05" 
looks like this: 

CHR$(0) CHR${53} 

Using the above example, you would print 

PRINT«7» CHR$(16) CHR$(0) CHR$(53) 
"DOES THIS COMPUTE?" 

Therefore, if computing the position using a loop, it is necessary 
to determine the position in terms of both the first and second 
digits as an offset of the loop value. For most applications, it is 
best simply to enter the number of positions witldn the quotation 
marks of the message to be printed. 

Before going on to printer graphics, we will examine how to use 
positioning in a program. This is useful in making lists where 
columns are important. For example, we can make a list of items 
for a garage sale. The first column will be the item for sale, the 
second column the asking price for the item, and the third column 
the actual price for which the item sold. We will use INPUT state- 
ments so that all items can be entered firom the k^board and 
used with an actual garage sale. (Who knows when you wiU want 
to use it? So why not make it useful!) 

10 PRINT CHR$(U7) 

20 PRINT : PRINT : INPUT "HOW MANY 
ITEMS"; NX : DIM IT«(NZ)* AP(NZ) « 
SP(N%) 

30 PRINT : FOR I = 1 TO NX 
40 PRINT "ITEM i t INPUT IT$(I) 
50 INPUT "ASKING PRICE"; AP(I) 
60 INPUT "SELLING PRICE"; SP(I) 
70 PRINT 
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80 NEXT 

100 REM *** PRINTER FORMAT ROUTINE 
««« 

110 0PEN7»4 

120 PRINT«7f "ITEM" CHR*(1B) 

"15ASKING PRICE" ! 

130 PRINT»7* CHR$(16) "35SELLING 

PRICE" 

ia0 PRINT«7. CHR*(10) : REM LINE FEED 

150 FOR P = 1 TO NX 

160 PRINT«7» IT$(P) 

170 PRINT«7f CHR*(1B) CHR*(fl9) 

CHR*(53) "$"; AP(P) 

180 PRINT«7t CHR$(1B) CHR»(51) 

CHR*(53) "«"; SP(P) 

190 NEXT 

200 CL0SE7 

There are a couple of things to note in this program. First of all, 
notice how we employed CHR$ code to indicate the positioning 
of the printed text in lines 170 and 180. The combination of those 
codes is the same as the "15" and "35" enclosed in quotations in 
lines 120 and 130. Second, we used the CHR$(10) for a line feed. 
We could have used PRINT#7 without any code following it to 
get the same results, but there will be times when you may wish 
to insert a line feed in the middle of a line and CHR^10) will come 
in handy. To make a really neat program, see if you can figure out 
how to have the program compute the totals of the asking price 
and selling price of the items. Also, it might be an interesting 
addition to have a fourth column which keeps a tally of the dif- 
ferences between the asking and selling prices. This is something 
that you should be able to work out on your own! (Hint: Create a 
fourtii array.) 



Printing Graphics 

Now that we have seen how to print text, we will look at graphics 
printing. The simplest graphics to print are those from the k^- 
board. Using the CURSOR UP mode, CHR$(145), we can print 
out the graphics from the keys. For example, from the Immediate 
mode try the following: 
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n 
n 
n 



0PEN7»/1 

PRINT«7» CHR*( 145) "{COMMODORE-KEY- B>" 
CLOSE? 



n 
n 
n 

That will print out a "checkerboard" character just like the one 
^ on the left side of the key. Now, since the default mode is CUR- 
SOR UP, it is unnecessary to enter CHR$(146) every time you 
^ print a graphic character but, just to be sure, you should have it 
somewhere in your program. 

n 

To see all the different graphic characters from your keyboard, 
O run the following program: 

O 10 PRINT CHR$(147) 

20 0PEN7»a 

^ 30 FOR I = 36 TO 127 : REM CHR* RANGE 

OF SET «1 

40 PRINT«7» CHR*(145) CHR$(I) 
50 NEXT I 

60 FOR J - 161 TO ISl : REM CHR$ 
RANGE FOR SET »2 
lib PRINT»7» CHR$(145) CHR«(J) 



80 NEXT J 
30 CL0SE7 

n 

All of the characters on your Iceyboard were printed out for you, 
r*) but with patience you could have done the same from the fc^- 
board. The CHR$(145) is a bit superfluous, and you can get the 
same results if you remove it. However, if CHR$(l7) is there, you 
will have mostly blanks since that is the "upper/lower" case, or 
^ CURSOR DOWN mode. 



Making Your Own Graphic Characters on the 



D Printer 

^ In Chapter 7 we showed how to create bit characters using a 
binary coding translation. Now we will do the same thing with 

O printer graphics. First of all, we will be using a 7 by 7 matrix 
instead of an 8 by 8 matrix so there are far fewer calculations. 

O The VIC-1515 printer can actually make graphic characters in a 
7 by 480 (!) matrix, but we will stick with the 7 by 7 matrix to 

n 
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keep it simple. To get started, instead of sending you off for some 
graph paper, we will make our own graph for our matrix on the 
printer, explaining the process as we go along. O 

To begin, we use CHR$(8) to initiate the graphics mode. Then we 

"build" a concatenated CHR$ which contains our graphic image. 

Since the bits are added on the basis of the vertical position of ^ 

each '^in" in the printer head, we will be adding vertical "dots" , 

instead of horizontal ones as we did with bit graphics. However, 

we will be using the same concepts as with sprite graphics. The ^, 

following is an outline of our 7 by 7 matrix: 



for our box figure. To do this we could have a line which reads as 
follows: 

BOX$ = CHR$(255) + CHR*(193) + 
CHR$(193) + CHR$(193) + CHR$(193) + 
CHR«(193) + CHR«(Z55) 
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1 

2 

4 

8 

16 

32 U 

64 

+ 128 O 

By inserting "dots" into the blanks, we can create a figure, and 
this is translated to a way in which the VIC-20 can understand 
by a vertical total of the positions the dots are in and adding 128. O 
For example, if we draw a square, we would have the first and 
last columns filled and the top and bottom rows filled. Beginning O 
with the first column, the value would bel + 2 + 4 + 8 + 16 
+ 32 + 64 + 128, equaling 255. The next five columns would 
have a dot at the top and bottom. A dot in the top row would be 
1, and a dot in the bottom row would be 64, and adding the 128 ^ 
we would get 193. The last column would be the same as the first, 
255. Therefore, we would want to create a CHR$ with the follow- 
ing values: 

255 193 193 193 193 193 255 ^ 



but that (whew!) would take a lot of time. Instead it would be a 
lot simpler to READ in the values as DATA statements as we did 
with the character replacements and concatenate the string, such 
as, 

FOR I = 1 TO 7 

READ GRAPHICS 

GR« = GR$ + CHR«(GRAPHICS) 

NEXT 

DATA 255»193»1S3>193»193»193»255 

Now let's put it all together into a program. 

10 PRINT CHR$(147) 

20 FOR I = 1 TO 7 : READ GRAPHICS 

30 GR$ - GR$ + CHR»(GRAPHICS) 

40 NEXT 

50 0PEN7#fl 

60 PRINT«7» CHR$(8) GR$ 
70 CL0SE7 

100 DATA 255»193»193»ig3»193»ig3»255 

When you RUN this program, a little box wiU be printed. Nothing 
very exciting, I admit, but now let's see how we can use that little 
box to make a matrix to create new characters. The following 
program will make a 7 by 7 matrix for you and only requires 
making a few changes in the above program: 

10 PRINT CHR$(U7) 

20 FOR I - 1 TO 7 : READ GRAPHICS 

30 GR$ = GR$ •«■ CHR$(GRAPHICS) 

40 NEXT 

50 0PEN7»4 

52 FOR Y = 1 TO 7 

54 FOR X = 1 TO 7 

60 PRINT«7» CHR$(8) GR« i 

62 NEXT X 

64 PRINT«7 

66 NEXT Y 

70 CL0SE7 

100 DATA 255»193»193»193flS3»193»255 



213 



If you printed out the 7 by 7 matrix, you can see that, while it is 
fiinctional, it really printed more than was necessary. We need 
only single-sided dividers between the cells. Besides, even though 
having the single box is handy for making all different kinds of 
shapes, we might as well create the exact graphics we need. How- 
ever, if we let the computer do the "figuring" for us, it can be 
relatively simple. Td begin we will break up the task into simple 
parts. First of all, we know that a straight vertical line is 
CHR$(255). We will call it E$ since it "encloses" the sides of our 
box. We also know that CHR$(193) will give us a top and bottom 
to our box, but if we use it to make a matrix, we will have double 
lines separating our rows. Therefore, we will need only a top line 
to begin with. That's easy since the top dot is "1" and all we have 
to do is add "128" for CHR$(129). We need five of those dots to 
create our top line, so we will create that with a FOR/NEXT loop 
of 5. (Remember in our 7 x 7 boxes, the E$ figure will talre a top 
position dot at either end.) Finally, at the end of our matrix we 
are going to need a bottom Ime. Here, instead of drawing a single 
bottom line, we will draw a bottom line of boxes made up of E$ 
and CHR$(193), the latter to be designated as TB$ (for "top/ 
bottom"). Therefore, the plan is to first draw 6 lines of boxes with 
a top only and then, for our seventh line, we will draw a row with 
both tops and bottoms. It is important to notice that we are now 
using graphic figures much larger than our 7 x 7 matrix! Here's 
our improved program: 

10 PRINT CHR*(147) 

20 E$ = CHR«(255) 

30 FOR I = 1 TO 5 ! T* = T* + 

CHR*(129) ! NEXT 

40 FOR I = 1 TO 5 : TB* = TB* + 

CHR$(1S3) : NEXT 

50 0PEN7»4 

60 FOR Y = 1 TO 6 

70 FOR X = 1 TO 7 

80 PRINT«7» CHR*(8)E* T* 

90 NEXT X 

100 PRINT«7» E* : REM PUTS AN END 

ENCLOSURE ON BOXES 

110 NEXT Y 

120 FOR X = 1 TO 7 
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130 PRINT«7» CHR$(8)E* TB$ » 

140 NEXT 

150 PRINT«7» E$ 

160 CLOSE? 

Now that you have a better idea of what can be created, print up 
a batch of matrixes and design some original printer graphics! 
You alwi^s wanted your own logo, and now you can do it! 

Repeat That Graphic! 

The final element we will examine with your printer is the graphic 
repeat one. Using GHR$(26) it is possible to make any number of 
graphic characters repeat. However, the format for usinig repeat 
requires some care. Use the following steps: 

1. Get into the graphics mode with CHR$(8). 

2. Issue the repeat command with CHR$(26). 

3. Enter the number of repeats within a CHR$ com- 
mand. Note: This is different from what loe saw with the 
position command. You do not put in the ASCII code for 
the number of repeats, bwt instead the acttud number of 
Um^ you want a graphic repeated. For example, you 
want a graphic to repeat 20 times, you would use 
CHR$(20). 

4. Enter the graphic character, usually followed by the 
CHR$ code for a semi-colon <CHR$(59)> so that the 
repetition will occiu* on the same line. 

Now let's make a simple program which will give us a "bar" of 
varying lengths. This will show how you might begin a program 
that will make a bar graph with bars of different lengths to rep- 
resent your data. 

10 PRINT CHR*(l/}7) : PRINT : PRINT 

20 INPUT "LENGTH OF BAR"; N 

30 RP* = CHR*(8) + CHR$(2B) + CHR$(N) 

: REM GRAPHICS + REPEAT + NUMBER OF 

REPEATS 
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40 V>L« = CHR$(255) + CHR$(59) : REM 
OUR MERTICAL LINE PLUS A SEMI-COLON 
50 OPENTfa 

60 PRINT? » RP$ yL$ : REM NOTE LACK OF 
PUNCTUATION BETMEEN RP$ AND UL$ 
70 CLOSE? 

Notice how fast the bar is produced on your printer using the 
repeat fiinction. Experiment with the command and mix it together 
with other printer commands to produce anything you want to 
see in black and white. 

Summary 

When you got your printer, you may have thought the only thing 
you could print was text in the same vmy a typewriter does. How- 
ever, as we saw, that was just the beginning. Besides printing 
text, it is possible to generate different style type faces, position 
the text wherever you want and even print graphics. Not only 
can you print the graphics from the k^board, you can also create 
your own printer graphics. Typewriters just cannot do that! 

The secret to using printers with your VIC-20 is the CHR$ func- 
tion. In some ways CHR$'s are used as ASCII code in exactly the 
same way as they are when output is to the screen, but in other 
-mys they are used either as special printer functions or, within 
certain sequences, to produce printouts. Unfortunately, it is not 
possible to simply access your printer and have it automatically 
put what's on the screen onto paper. However, by planning your 
program around output to the printer, just about anything printed 
to the screen can be printed to your printer. 
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CHAPTER 10 



Program Hints and Help 



introduction 

Well, here we are at the last chapter. We've covered most of the 
commands used for programming in BASIC on the yiC-20 and 
many tricks of the trade. However, if you are seriously interested 
in learning more about your computer and using it to its full capac- 
ity, there's more to learn. In fact, this last chapter is intended to 
give you some direction b^nd the scope of this book. 

First, we will introduce you to the best thing since silicon, VIC- 
20 User Groups. These are groups who have interests in maxi- 
mizing their computer's use. Second, I would like to suggest some 
periodicals with which you can learn more about your VIC-20 
computer. Third, we will examine some languages other than 
BASIC that you can use on your VIC-20. BASIC has many advan- 
tages, but like all computer languages it has its limitations, and 
you should know what else is available. 

Next, we will examine some more programs. First, there will be 
listings of programs that you may find useful, fun or both. The 
ones included were chosen to show you some applications of what 
we have learned in the previous nine chapters, enhancing what 
you already know. Then we wiD look at different types of pro- 
grams you can purchase. These are programs written by profes- 
sional programmers to do everything from making your own pro- 
gramming simpler to keeping track of your taxes. Finally, we will 
examine some hardware peripherals to enhance your VIC-20. 

VIC-20 user Groups 

Of all of the things you can do when you get your VIC-20, the 
most helpful, economical, and useful is joining a VIC-20 User 
Group. Not only will you meet a great group of people with VIC- 
20 computers, but you will learn how to program and generally 
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what to do and not to do with your computer. The dub in your 
area will probably be one with other COMMODORE computer 
users, such as PET and COMMODORE-64 users. My club, SAN 
DIEGO PET USER GROUP, started with Commodore Pet users 
and later grew to include VIC-20 and COMMODORE-64 users as 
well. 

Usualfy the best way to contact your VIC-20 User Group is through 
local computer or software stores. Often stores selKng VIC-20 
computers and/or software will have application forms, and some 
even serve as the meeting site for the dubs. Other microcomputer 
clubs in your area may also have VIC-20 users in them, but if 
there is not a COMMODORE dub, join a general computer group. 
The help you will get will be worth it. 

To start your own VIC-20 User group, post a notice and meeting 
time and site in your local computer store, ^te to: 

Commodore User Clubs 
do Editor 

Commodore Magazine 
487 Devon Park Drive 
Wayne, PA 19087 

and ask them to publish a notice that you want to start a VIC-20 
dub in your area. Your dub will then be listed in Commodcyre and 
other people in your area will soon join up. 
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Another way to get in touch with fellow VIC-20 users is via a 
VICMODEM. Dial up the computer bulletin boards in your area 
and look for mess£^es pertaining to VIC-20's. Usually, you can 
get in contact with other users very quickly this visy. (Ask for 
the PMS {Public Message System} numbers at your local com- 
puter store.) If you don't see any references to the VIC-20, leave 
a message for people to get in touch with you. 

VIC-20 Magazines 

There are several periodicals with information about the VIC-20. 
Some microcomputer magazines are general and others are for 
the VIC-20 only. When you're first starting, it is a good idea to 
stick with the ones dedicated to the VIC-20 since there are dif- 
ferent versions of BASIC for non-VIC-20 computers. When you 
become more experienced, you can choose your own, but to get 
started there are several good ones with articles exclusively on 
the VIC-20. These are as follows: 

Commodore: The Microcomputer Magazine 

Commodore Business Machines, INC. The Meadows, 487 Devon 
Park Drive, Wayne, PA 19087 

Commodore is a monthly publication with a wide variety of arti- 
cles and programs for the VIC-20. Here you will find program- 
ming techniques, tips for beginners, new hardware and software 
available and various applications. Articles range from the simple 
to the technical, and so regardless of your level of expertise, you 
will find this extremely usefiil. Subscriptions are $15.00 per year 
for 6 issues. 

Powerplay 

Commodore Business Machines, INC. The Meadows, 487 Devon 
Park Drive, W^e, PA 19087 

A second magazine for your VIC-20 is Powerplay, a quarterly 
publication dedicated to the more recreational uses of your com- 
puter. The articles and programs in this magazine are primarily 
for home uses of your computer, ranging firom games te telecom- 
munications. It is very educational and helpfiil for novices. Sub- 
scriptions are $10.00 per year. 
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coMPUTEi's Commodore Gazette 



P.O Box 5406, Greensboro, NC 27403 

The Ccmmockm Gazette is for VIC-20 and COMMODORE-64 
users specifically. All articles and programs are for these two 
computers, and while you cannot do everything on the VIC-20 
that is possible on the COMMODORE-64, such as sprite graphics, 
many programs and applications will be for both computers. It is 
published by the same people who put out COMPUTE! (see below). 

COMPUTE! 

P.O Box 5406, Greensboro, NC 27403 

COMPUTE Ob not dedicated to the COMMODORE, let alone the 
VIC-20, but it generally has one or more articles on the VIC-20 
in each issue. More than most other general computer magazines, 
COMPUTE! will provide you with programs and programming 
techniques that can be applied to your computer. Additionally, it 
has several general artides on programming, hardware and soft- 
ware which you will find useful. Finally, there are many bargains 
on software and peripherals to be found in the magazine. Sub- 
scriptions are $20 for 12 issues. 

Other useful Publications 

In addition to the above four magazines, there are several others 
that you mes^ find usefiil. Publications such as CreaUve Comput- 
ing, Byte, Interface Age, Popular Comjnding and Personal Com- 
pyting all have had articles about the VIC-20. The best thing to 
do is go through the table of contents in the various computer 
magazines in your local computer store. This will tell you at a 
^ance if there are any articles or programs for the VIC-20. As 
more and more dubs begin springing up, dub newsletters can 
often be an invaluable source of good tips and programs for your 
computer, and they are a r^urce which should not be overlooked. 
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vlc-20 Speaks Many Languages 



^ Besides BASIC, your computer can be programmed and can run 
' programs in several other languages. In some cases, special hard- 
^ ware devices are required to run the languages, and tiiere is spe- 
cial software required as well. We'll look at some of these other 
^ languages. 

Assembly Language 

^ Assembly language is a "low level" language, dose to the heart 
of your computer. It is quite a bit faster than BASIC and virtually 

A. every other language we will discuss. To write in assembly lan- 
guage, it is necessary to have a "monitor" or "assembler" to enter 

^ code. This language gives you far more control over your VIC-20 
than BASIC, but it is more difficult to learn, and a program takes 
more instructions to operate than BASIC. (However, the object 
code is more compact, taking up fewer sectors on your disk.) For 

r>) the VIC-20, COMMODORE mates a VICMON cartridge you can 
attach for entering machine code. Also, Human Engineered Soft- 
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ware (HES) 71 Park Lane, Brisbane, CA 94005, sells HESMON 
(cartridge) for machine/assembly programing. Both the VIC- 
MON and HESMON come with mini-assemblers. For an assem- 
bler/editor, the VIC-20 ASSEMBLER is available from French 
Silk, P.O. Box 207, Gannon F^ MN, 55009. This will make writ- 
ing and editing assembly programs a good deal easier than on a 
monitor or mini-assembler. 

To learn how to program in assembly language, the following two 
books were found to be the most useful: 

1. VIC-20 PROGRAMMER'S REFERENCE GUIDE 
(Commodore) This book can be purchased from your local 
book or computer store or from: 

Commodore Business Machines, INC. 
The Meadows, 487 Devon Park Drive, 
Wayne, PA 19087 

This is a most usefld book for programming with the VIC- 
20 assembler. 

2. 6502 ASSEMBLY LANGUAGE PROGRAMMING by 
Lance A. Leventhal (New York: Osbome/McGraw-Hill.) 
While learning assembly language, this book will be of 
great assistance, especially as a reference guide to the 
functions of the various opcodes and pseudo-opcodes. 
However, it is best used in conjunction with the VIC-20 
PROGRAMMERS'S REFERENCE GUIDE. 

Other books are available for learning assembly level program- 
ming, and you will find books for other 6502 computers, such as 
the Atari 800 and Apple II, to be of some value. 



HIGH AND LOW LEVEL LANGUAGES 
When computer people talk of "high" and "low" level lan- 
guages, th&ik of high level being close to talking in normal 
English and low level in terms of machine language, e.g., 
binary and hexadecimal. Assembly language is a low level 
language, one notdi above machine level. The other lan- 
guages we will discuss are high level. 
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FORTH 

FORTH is a very fast high-level language, developed to create 
programs which are almost as fast as assembly language but take 
less time to program. Faster than Pascal, Basic, Fortran, Cobol, 
and virtually every other high-level language, FORTH is pro- 
grammed by defining "words" which execute routines. New words 
incorporate previously defined words into FORTH programs. The 
best part of FORTH is that several versions are public domain. 
The Fig (FORTH Interest Group) FORTH version is in the public 
domain, and if you are handy with assembly programming, you 
might even be able to install your own. However, there are FORTH 
vendors who have FORTH for the VIC-20. One version recom- 
mended is: 

VIC FORTH 

Human Engineered Software 
71 Park Lane 
Brisbane, CA 94005 
Ph. (415) 468-4110 

The best source to learn about what is available is through the 
publication, FORTH Dimensions (see below) and your magazines 
where VIC-20 products are advertised. 

Good books on learning FORTH are only just now becoming avail- 
able. For learning FORTH, the following are recommended: 

1. FORTH PROGRAMMING by Leo J. Scanlon (Indi- 
anapolis : Howard S. Sams & Co., 1982). This book uses 
the FORTH-79 and Fig-FORTH models as standards, 
thereby providing the user with the most widely distrib- 
uted versions of FORTH. This is a well organized and 
clear presentation of FORTH. 

2. STARTING FORTH by Leo Brodie (Englewood Cliffe: 
Prentice-Hall). Well written and illustrated work on 
FORTH for beginners. Uses a combination of words from 
Fig, 79-Standard and polyFORTH. 
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3. FORTH Dimensims. Journal of FORTH INTEREST 
GROUP. RO. Box 1105, San Carlos, CA 94070. This peri- 
odical has numerous articles on FORTH and tutorial col- 
umns for persons seriously interested in learning the 
language. 



PILOT 



This language is for children. It was developed primarily as a 
teaching tool and it is very simple to use, especially with graphics. 
One version of this language available for the VIC-20 is 

VIC TINY PILOT 
Abacus Software 
PO. Box 7211 
Grand Rapids, MI 49510 

For a first programming language for children, PILOT is highly 
recommended. 

Finally, if you find that programming in BASIC is most suitable 
for you, but you would like to speed up your programs, a simple 
way to do that is with a compiler. Essentially, a compiler is a 
program that transforms yoiu* code into a binary file which will 
run four to five times faster than VIC-20 BASIC. All you do is 
write the program in BASIC, compile it, and then save the com- 
piled program. From then on, you nm your compiled program as 
a machine language program. One compiler available for your 
VIC-20 is 
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TINY BASIC COMPILER 

Abacus Software 

P.O. Box 7211 

Grand Rapids, MI 49510 

Ask your dealer about BASIC compilers for the VIC-20 as more 
become available. 

Sort Routine 

This program will sort strings for you. It uses the "Quick Sort 2" 
algorithm, which has been found to be the fastest sort for large 
numbers of strings. Pay dose attention to how the data are entered 
and connect up to the sort routine between lines 100 and 440. 
There are many applications for which you will find sorts useful. 
This example shows you how to get into and out of a routine. In 
the many computer magazines and books available for computers, 
you will find di£ferent algorithms, and it is a good idea to save 
them so that they can be used in your programs. 

10 PRINT CHR$(147) 

20 INPUT "NO. MORDS TO ENTER"; NX 

30 DIM A$(NX + 1) 

40 FOR N » 1 TO NX 

50 INPUT "ENTER MORD ";A$(N) 

B0 Z = Z + 1 

70 NEXT N 

100 REM *«* QUICKSORT 2 *«* 

110 PRINT CHR»(147} 

120 SI = 1 

130 L(l) » 1 

140 R(l) - N 

150 LI - L(S1) 

160 Rl » R(S1) 

170 SI = SI - 1 

180 L2 = LI 

130 R2 » Rl 

200 X$ = A*( INT ((LI + Rl) / 2)) 
210 C = C + 1 

220 IF A$(L2) > = X$ THEN 250 
230 L2 = L2 + 1 
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240 GOTO 210 
250 C = CI 

260 IF X$ > » A$(R2) THEN 2S0 

270 R2 = R2 - 1 

280 GOTO 250 

290 IF L2 > R2 THEN 360 

300 S = S + 1 

310 T* = A*(L2) 

320 A$(L2) = A»(R2) 

330 A*(R2) = T* 

340 L2 = L2 + 1 

350 R2 = R2 - 1 

360 IF L2 < = R2 THEN 210 

370 IF L2 > = Rl THEN 410 

380 81 = SI + 1 

380 L(S1) - LZ 

400 R(S1) = Rl 

410 Rl = R2 

420 IF LI < Rl THEN 180 

430 IF 81 > THEN 150 

440 REM **# SORT COMPLETE »»# 

500 REM **» OUPUT TO SCREEN IN »#» 

510 REM *** ALPHABETICAL ORDER *»* 

520 FOR N = 2 TO Z + 1 

530 F = F + 1 

540 IF F > 22 THEN GOSUB 1000 
550 PRINT A*(N) 
560 NEXT N 
570 END 

1000 PRINT CHR*(18) "HIT ANY KEY" 
1010 GET AN$: IF AN* = " » THEN 1010 
1020 F = 0: PRINT CHR*(146) 
1030 RETURN 

Key Tricks 

Before you read this, promise not to get angry. OK? All right, 
now you can read on. Up to this point we have not used a number 
of short-cuts available on your k^. TMs is because it was impor- 
tant for you to first get used to the commands and how to use 
them correctly. Also, as we will see, the short-cuts do not dearly 
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show you what is happening on your computer as fully as writing 
out the conunands. 

In Appendix D of your VIC-20 USER'S GUIDE there is a chart 
that shows how to enter the first one or two letters of a conunand 
and then SHIFT the second or third letter to get the entire com- 
mand. This will save you some time in programming, but it is 
difficult to read the command until you get used to it. For example, 
put a program into memory and enter "L {SHIFT-I}" and 
RETURN. The command is the same as entering LI^ except 
you have to make only two key presses instead of four. Now, dear 
memory and enter the following: 

10 ? C {SHIFT-H> (147) : A$= 
"ALLRIGHT" 

20 ? S {SHIFT-P> (10)5 R -CSHIFT-n 
(A$ »5) 

Before you RUN the program, can you guess what will happen? 
If you cannot, don't feel bad since it is confusing, especially the 
w^ it appears on the screen. When you RUN the program, it 
will dear the screen and print the message "RIGHT" 10 spaces 
from the left side of the screen at the top. Now LIST your pro- 
gram, and all the commands are clear. These key short-cuts are 
handy in some cases and confusing in others. The LIST command 
is usually from the Immediate mode. It is handy to use it in the 
abbreviated fashion, but until you become better acquainted with 
programming, these short-cuts may be more confusing than help- 
fid. Use the ones you feel comfortable with, and introduce them 
gradually. 

Function Keys 

To the right of your keyboard are four k^s we have not mentioned 
yet. They are called the "Function Keys" and are accessed by 
CHR$ values from 133 to 140. To use them, a "keyboard scan" is 
set up, and when one of the eight k^s (four non-shifted plus four 
shifted) is pressed, the program branches to a subroutine. They 
have applications where the user is expected to interact with the 
program from the k^board but the other keys are used for INPUT 
of characters and k^board graphics. For example, let's si^ you 
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wanted to have a program that would enter names until a certain 
key was pressed. Since you would not want the to be one with 
which you entered characters for the name you are entering, you 
could use the Function Keys. The CHR$ values firom 133 to 140 
are linked to the keys 1 through 8 with the non-shifted keys being 
from CHR$(133) to CHR$(136) and the shifted I^s from 
CHR$(137) through CHR$(14e). FV>r example, CHR$(133) is for 
Function Key 1 (fl), CHR$(137) for "f2", CHR$(134) for "f3", and 
up to CHR$(140) for "f8." The following program illustrates how 
to set up a program to use the Function K^s. Only k^s 1, 5 and 
8 are used, with the program ending if key f5 is pressed. 

10 PRINT CHR$(lfl7) 

20 GET A$ 

30 PRINT CHR«(19) 

40 IF A$ = CHR$(133) THEN GOSUB 1000 
50 IF A$ - CHR$(140) THEN GOSUB 2000 
60 IF A$ = CHR$(135) THEN END 
70 PRINT "CHOOSE FUNCTION" : PRINT 
"KEY 1 OR 8" 

80 PRINT "TO END PRESS" : PRINT 
"FUNCTION KEY 5" 
90 GOTO 20 

1000 PRINT CHR$(147) : PRINT "YOU 

CHOSE KEY Fl" 

1010 PRINT "HIT ANY KEY" 

1020 GET AN$ : IF AN» = "" THEN 1020 

1030 PRINT CHR$(ia7) : RETURN 

2000 PRINT CHR$(147) : PRINT YOU 

CHOSE KEY F8" 

2010 PRINT "HIT ANY KEY TO" 

2020 GET AN$ : IF AN* = "" THEN 2020 

2030 PRINT CHR»(ia7) : RETURN 

Utility Programs 

WHAT'S A UTILITY 

Utility programs are programs which help you program or access 
different parts of your computer. In this section we will review 
some of the more usefkil utility programs available at this time. 



228 



n 
n 
n 
n 
n 

n 
n 
n 
n 
n 
n 
n 
n 
n 
n 
n 
n 

n 
n 
n 
n 
n 
n 



Currently, the best set of utilities come with Commodore's PRO- 
GRAMMER'S AID CARTRIDGE. Included are utiUties for 
debugging, renumbering, trace and 20 additional BASIC com- 
mands to help you develop programs. As you begin writing more 
programs, this cartridge will save you a good deal of development 
time. 




word Processors 

Your VIC-20 computer can be turned into a first class word pro- 
cessor with a word processing program. Word processors turn 
your computer into a super typewriter. Th^ can do everything 
from moving blocks of text to finding spelling mistakes. Editing 
and making changes is a snap, and once you get used to writing 
with a word processor, youll never go back to a typewriter again. 
This book was written with a word processor, and it took a fraction 
of the time a typewriter would have taken. (Believe me, I've writ- 
ten 10 books with a typewriter!) 
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There are some limitations with word processors. First, the VIC- 
20 screen displays only 22 columns. Since the standard page size 
is 80 columns, this bothers some people since what appears on 
the written page is different fi*om what appears on the screen. 
However, since I write material which will be printed out in i,^ 
everything from 20 to 132 columns, the 2Z columns do not bother 
me. If you want 80 columns for your screen, though, you can 
purchase adaptors which will provide 80 coliunns on the screen 
for you. Using an 80 column adaptor, you can see exactly what 
you will get when you print out your material. To give you some 
help in making up your mind, the following are some featiu«s you ^ 
might want to look for: ^ 

1. Find/Replace. , , 
'Will find any string in your text and/or find and replace 

any one string with another string. Good for correct- |^ 
ing spelling errors and locating sections of text to be 
repaired. 

2. Block Moves. 

Will move blocks of text from one place to another 
(e.g., move a paragraph from the middle to end of 
document.) Extremely valuable editing tool. O* 

3. Link Files. 

Automatically links files on disks. Very important for ^ 
longer documents and for linking standardized shorter 
documents. ^ 

4. Line/Screen Oriented Editing. 

Line oriented editing requires locating beginning of ^ 
line of text and then editing from that point. Screen 
oriented editing allows beginning editing from any- 
where on the screen. The latter form of editing is 
important for large documents and where a good deal 
of editing is normally required. 

5. Automatic Page Numbering. 

Pages are automatically numbered without having to 
determine page breaks in writing text. 

6. Imbedded Code. 

In word processors, this enables the user to send spe- 
cial instructions directly to the printer for changing O 
tabs, printing special characters on the printer and 
doing other things to the printed text without having ^ 
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to set the parameters beforehand and/or having the 
ability to override set parameters. 

These are just a few of the things to look for in word processors. 
As a rule of thumb, the more a word processor can do, the more 
it costs. If you only want to write letters and short documents, 
there is little need to buy an expensive word processor. However, 
if you are writing longer, more complex and a wider variety of 
documents, the investment in a more sophisticated word proces- 
sor is well worth the added cost. If you have specialized needs 
(e.g., producing billing forms), you will want to look for those 
features in a word processor wMdi meets those needs. Therefore, 
while a word processor may not do certain things, it m^ be just 
what you want for your special applications. As with other soft- 
ware, get a thorough demonstration of any word processor on an 
VIC-20 before laying out your hard earned cash. The VICWRI- 
TER and VIC TYPEWRITER from Commodore were made for 
the VIC-20, and they are good ones to examine to see if they meet 
your needs and for comparative purposes. Compare them with 
others your dealer may have available for the VIC-20, and then 
make your choice on the basis of what you like best. The following 
are a couple of other word processors you should consider: 

1. WORDCRAFT20 

United Microware Industries, Inc. 
3503-C Temple Avenue 
Pomona, CA 91768 

2. QUICK BROWN FOX 
548 Broadway 

New York, N.Y. 10012 
(800) 547-S996 Ext 194 

As a cautionary note, word processcnrB take a bit of time to learn 
to use effectivefy. It is possible to start writing text immediately 
with most word processors, but in order to use all of their fear 
tures, some practice is required. One of the strange outcomeB <tf 
this is that once a user learns all of the techniques of a certain 
word processor, he or she will swear it is the best there is! Therer 
fcore, avoid arguments about the best w<»d inrooeBstnr. It^ like 
aismng iKdHacs and religion. 
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If you want to write text in more than 80 columns, you will need 
an adaptor. The following cartridges will do that for you: 

1. 40/80 VIDEO CARTRIDGE $219.95 

40/80 VIDEO COMBO CARTRIDGE ( + 16K RAM) 
$319.95 

Quantum Data, INC. 
Suite A, Box 285 
14252 Culver Dr. 
Irvine, CA 92714 

These cartridges can be used with or without a word 
processor, providing both 40 and 80 columns of text. 
The "COMBO" also adds 16K of additional RAM to 
memory, and using word processing, it is highly rec- 
ommended to purchase more RAM for your VIC-20. 

2. VIDEO PAK $299.95 (+16K RAM) $399.95 (+64K 
RAM) 

DATA 20 Corporation 
23011 Moulton Parkw^ 
Suite B10 

Laguna Hills, CA 92653 

For serious word processing, the 64K version of the 
VIDEO PAK will give the VIC-20 user 70K of avaU- 
able RAM for writing long documents. The PAK 
includes a terminal emulator and screen print feature. 

Data Base Programs 

When you need a program for creating and storing information, 
a "data base" program is required. Essentially, professionally 
designed data base programs are either sequential or random 
access files. When you use one, all you have to do is to use the 
pre-defined fields provided or create fields. For sample, a user 
may want to keep a data base of customers. In addition to having 
fields for name and address, the user may want fields for the 
specific type of product the customer buys, dates of last purchase, 
how much mon^ is owed, date of last payment, etc. 
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^ Probably more than most other packages, data base programs 
- should examined carefiilly before purchasing. Some of the more 
expensive data bases can be used with virtually any kind of appli- 
^ cation, but if you're only going to be using your data base to keep 
' a list of names and addresses to print out mailing labels, for exam- 
^ pie, a data base program designed to do that one thing will usually 
do it better and for a lot less mon^. On the other hand if your 
^ needs are varied and involve sophisticated report generation and 
changing record fields, then do not expect a simple, specialized 
program to do the job. Vic-Ville Sofware has a nice data base 
program, MAILING LIST, for keeping track of names on the 
O VIC-20, and this can be used for several general purpose lists, 
such as names and addresses, client names and similar files requir- 
O ing names. It is available firom Data Equipment Supply Corp., 
8315 Firestone, Blvd. , Downey, CA 90241 for $25. Also, you might 
O want to look at TOTL LABEL 2.0 from Afron Microelectronics, 
111 Rena Drive, Lafayette, La. 70503. TOTL LABEL 2.0 is also 
for making mailing lists and mailing labels. However, these pro- 
grams require expanded RAM of at least 8K. This will be true of 
most database programs when you want to keep a large number 
^ of records. For a more general database program, you will want 
to take a look at DISK BASED DATA MANAGER. This system 
^ works only with a disk drive system, but it is much faster and 
more flexible than what is available on tape. It is available for 
^ $59.95 from MicroSpec, 2905 Ports O'Call Court, Piano, TX 75075 
(214) 867-1333. Again, expanded RAM is recommended with this 
O program. 

o Business Programs 

O Business programs have such a wide variety of functions that it 
is best to start with a specific business need and see if there is a 
program which will meet that need. On the other hand there are 
^ general business programs which are applicable to many different 
businesses. Specific business programs include ones which deal 
only with real estate, stock transactions and hospital nutritional 
pUmning. More general programs include "Electronic Spread- 
^ sheets," "Financial Planning," and, as discussed above, data base 
programs. 

O 
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Unfortunately, business people often spend far too much for sys- ^ 
tems which do not work. They believe that if one spends a lot of 
mon^ on software and hardware, it must be better than a less 
expensive simpler system. This thinking is based upon a 'Tou Get 
What You Fay For" mentality, and it leads to systems which are '^J 
not used at all. Here is where a good dealer or consultant comes 
in handy. First, since computers are getting more sophisticated ^ 
and less expensive, often you do not "Get What You Pay Far" 
when purchasing a big expensive one. Often all the business per- ^ 
son ends up with is a dinosaur system which is outmoded, too big 
and too expensive for the needs. Some computer dealers specialize ^ 
in helping the business person. They will help set up the needed 
system in your place of business, help train office personnel and 
provide ongoing support. These deal^ will charge top dollar for ^ 
your system and supporting software, as opposed to the discoimt 
dealers and mail order firms; however, if you have any problems 
you will have someone who will come and help you out. Since the 
VIC-20 is so inexpensive to begin with, the extra mon^ spent on 
buying from a business supportive dealer is well worth the little 
extra cost. Alternatively, there are several consultants for setting O 
up your system. If you use a consultant, get one who is an inde- 
pendent without any connection to a vested interest in selling O 
computers. Contact one through your phone book and tell him you 
want to set up a VIC-20 system in your office and let him know ^ 
exactly what your needs are. If he is &mi]iar with your system, 
he will know the available software and peripherals you need. If ^ 
he tries to sell you another computer, that probably means he is , 
unfamiliar with your system, and it is a good idea to try another 
consultant. ^ 

I do not mean to sound cynical, but I have encountered too many 
unhappy business people who bought the wrong system for their ^ 
needs. One businessman said he paid $14,000 for a computer sys- 
tem that never did work for his requirements and finally bought ^ 
a microcomputer system for about a tenth of the price and every- 
thing worked out fine. This does not mean tiiat a business may 
not require an expensive computer to handle certain business 
fimctions, and the VIC-20 certainly has limitations. However, 
before you hay amy system, make sure it does what you want and 
have it shown to you working in the manner that fits your needs. 
Often you will find that the less expensive new micros like the 
VIC-20 win actually work better thm costly Ing madunes. 
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O A good start for business programs is some kind of "electronic 
spreadsheet." These program are excellent for keeping track of 
^ complicated accounting. Two you may wish to examine are 
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1. ViCalc $12.00 
Mooseware Inc. 
P.O. Box 17868 
^ Irvine, CA 92713 



2. Copycalc $20.00 
T^^lUam Robbins 
O P-0. Box 3745 

San Rafael CA 94912 
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Graphics Packages 



In our chapter on graphics we discussed some of the VIC-20's 
capabilities with graphics. However, certain uses require either 
highly advanced programming skills or a good graphics package. 
O For example, it is possible to draw on the screen in hi-resolution 
graphics, just as you would with a pallet. The pictures produced 
O can then be saved to disk or tape or printed out to your printer. 
Also, character editors, for producing different characters for your 
keys are available. These programs allow you to concentrate on 
_ the graphics themselves rather than the programming techniques 
necessary to produce them. 



Probably the best bet for serious graphics work is the VIC 20 
SUPER EXPANDER from Commodore. This cartridge includes 
several graphic utilities plus 3K of additional RAM. Using the 
^ function keys and regular keys, you can make spectacular high 
resolution graphics. Also from Commodore is their PROGRAMM- 
O ABLE CHARACTERS SET / GAMEGRAPHICS EDITOR which 
allows you to easily create new bit characters and then write your 
O own game software with them. There are several other software 
packages on the market for doing enhanced graphics on your VIC- 
O 20, and a visit to your local software dealer will help you decide 
what best fits your needs. However, when you begin using high 
resolution graphics, it is time to think about adding RAM to your 
^ VIC. 
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If you want an idea of what you can do on your VIC-20 with 
graphics, the following program, written by Mike Klein, a 17 year 
old programmer, will give you a good idea. It requires a joystick. 
To work the program, after you have RUN it, the screen will be 
orange. Press "F' for plot, and by holding in the joystick button 
and moving it, you can draw on your screen. The cursor is a small 
white dot appearing in the upper left hand comer of your screen, 
but it can be moved with the joystick. To erase part of your drawing, 
press "E" and retrace the line, or press function key F5 to erase 
everthing. By releasing the button, you can move the cursor without 
it drawing a line. 



REM * VIC-SKETCH * BY MIKE KLEIN 

1 GOTO 13 

2 POKE 37154* 127 : 
AND 128 : V2 - PEEK 



yi = PEEK(37152) 
(37151) AND 28 : 



PEEK (37137) : FB » ( ( P AND D 32) 



= 0) 

3 POKE 37154 » 255 : JS 
: JS » (NOT JS) AND 15 

4 RETURN 

13 POKE 3687S» 43 : PRINT 

14 FOR S - 7680 TO 8185 : 
: NEXT 

15 POKE 3B86S» 255 

16 FOR X = TO 7 : FOR Y 
POKE 7680 + X + 22 » Yt X 
NEXT Y»X 

18 IF SI - THEN FOR S = 
767S : POKE S» : NEXT 
IS E - 1 : R = 1 : PS = 1 
20 GOSUB 2 

K - PEEK (137) 



yi/16 + V2/4 



CHR$ 
POKE 



(147) ; 
St 160 



« 8 



TO 7 
+ Y ! 



7168 TO 



21 
22 
23 
24 
25 
26 



IF 
IF 
IF 
IF 

IF 



K = 

K = 

K = 

K = 



48 
28 
55 
33 



FB = 
THEN PS = ( 
28 IF FB = 
THEN S = 1 



THEN 
THEN 
THEN 
OR K 
AND 



E = 
E = 
16 

= 47 
J8 <> 



THEN 
OR 



600 

K = 



13 



AND JS <> OR K 



32 



u 

O 
O 

G 
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30 IF JS s 1 OR JS = 5 OR JS = 9 OR K 

= 9 OR K = 48 OR K = 12 THEN Y = Y-1 

: IF Y < THEN Y = B3 

32 IF JS - 2 OR JS = 6 OR J8 = 10 OR 

K = flfl OR K = 17 OR K = ai THEN Y = Y 

+ 1 : IF Y > 63 THEN Y = 

34 IF J8 - 4 OR JS - 5 OR JS = 6 OR K 

= 20 OR K = 48 OR K - 17 THEN X = X - 

1 : IF X < THEN X = B3 

36 IF J9 » 8 OR JS = 9 OR JS = 10 OR 

K = 21 OR K = a OR K = 41 THEN X = X 

+ 1 : IF X > 63 THEN X = 

38 CH = INT (X/8) * 8 + INT (Y/8) 

40 RO = (Y/8 - INT (Y/B)) # 8 

41 BY - 7168 + 8 * CH + RO 

42 BS = 7 - (X - INT (X/8) » 8) 

43 BA " PEEK (BY) 

d IF PS 1 THEN POKE BY BA OR 2 f 
BS) : GOTO 20 

48 IF PS - 1 AND E - 1 THEN POKE BY* 
BA AND BO : GOTO 20 

50 IF PS = 1 AND DE = 2 THEN POKE BY » 
BA AND D 255 2 \ &S ) 
52 POKE BY PEEK BY OR 2 f BS ) s 
GOTO 20 

600 IF K <> 39 THEN 700 

601 PRINT CHR$(147) : POKE 3B869 • 240 
: POKE 3B879»27 : PRINT " SET TAPE TO 
WHERE YOU WANT PICTURE STORED." 

602 K » PEEK (187) : IF K <> 32 THEN 
602 

606 Si = 1 : OPENl »1 *Z 

610 FOR E = 71B8 TO 7679 : BYT = PEEK 

(E) : PRINT 1» BYT : NEXT : CLDSEl : 

RUN 

700 PRINT CHR«(147) : POKE 36869 » 240 

: POKE 36878 »25 : PRINT "ADVANCE TAPE 

TO WHERE PICTURE IS LOCATED." 

702 K = PEEK (187) : IF K <> 32 THEN 

702 

706 OPENl »1 »0 
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708 POKE 36879 »42 : 
710 FOR 8 = 7680 TO 
: NEXT 

712 POKE 36869 »255 
714 FOR P = 7168 TO 
«1 »BYT ! POKE P. BYT 
716 FOR L = TO 7 
718 POKE 7680 + M « 
720 NEXT M»L : X = ( 
20 



PRINT 
8185: 



CHR$(147) ; 
POKE 8»160 



7679 : INPUT 
s NEXT : CLOSEl 
FOR M = TO 7 
22 + L» L * 8 + M 
I : P8 - 1 : GOTO 



Hardware 

The VIC-20 is "expandable." That means you can add various 
attachments to it to make it do more than it does normally. In the 
back of your machine there are 3 ports where hardware exten- 
sions can be attached, and on the right side there are two addi- 
tional sockets for game paddles and /or a joystick. Game paddles 
and joysticks are used for games as well as other programs. For 
games, th^ guide rockets, space ships and characters against the 
forces of evil. However, they are also used for drawing graphics 
and input in other programs as well. (If you have an Atari game 
computer, the paddles and joystick for the Atari will fit into your 
VIC-20. So, instead of buying new ones, just plug in the Atari 
paddles or joystick.) 
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Probably the most important addition to your VIC-20 will be 



memory expansion modules. "With 5K of RAM there is a surpris- 
ing amount you can do, but with certain applications, such as data 
/-s base programs and word processing, you wiU need the added 
memory. Commodore has 3K, 8K and 16K MEMORY EXPAN- 
^ DER CARTRIDGES. I would recommend getting the 16K car- 
tridge since you can run the most programs with it. 

Like software, before you purchase an interface or peripheral, 
O n:iake sure it works with your computer! Unfortunately, many 

hardware attachments come with such poor documentation that 
^ without someone to show you how to work it, it is almost impos- 
^ sible to get them to operate properly. 

n 



Summary 



^ The most important thing to understand from this last chapter is 
that we have only scratched the surface of what is available for 

^ the VIC-20 computer. There is much, much more than a single 
chapter could possibly cover and, as you come to know your VIC- 

^ 20, you will find that the choice of software and peripherals is 
limited only by the confusion in making up your mind, liiere were 
other items for the VIG-20 that came to mind, but this chapter 
and book would have never ended were I to indulge myself and 
keep prattling on. The software and hardware I suggested were 
based on personal preferences; I would suggest that you choose 

O on the basis of your own needs and preferences and not mine. 
Think of the items mentioned as a random sampling of what one 
user found to be useftd and then after your own sampling, exam- 

^ ination and testing get exactly what you need. 

^ As you end this book, you should have a beginning level under- 
standing of your computer's ability. Whether you use it for a single 

^ function or are a dedicated hacker, it is important that you under- 
stand the scope of its capacity to help you in your work, education 

^ and play. It is not a monstrous electronic mystery, but rather a 
tool to help you in various ways. You may not understand exactly 

^ how it operates, but you probably do not understand everything 
about how your TV set operates either, but that never prevented 
you from watching the evening news. \^th your computer, though, 
you make the "news" on your TV. 



239 



n 
n 

n 

o 
n 



APPENDIX A 
ERROR MESSAGES 

ERROR MESSAGE CAUSE 



BAD DATA 
BAD SUBSCRIPT 

CANT CONTINUE 
DEVICE NOT PRESENT 
DIVISION BY ZERO 



EXTRA IGNORED 
FILE NOT FOUND 

FILE NOT OPEN 

FILE OPEN 



A numeric variable received 
string data from file. 
The array was not DIMmed to 
a sufficient size to handle a 
given element 

Received after a CONT com- 
mand has been issued. Usually 
caused because program has not 
been RUN, but also caused by 
syntax error or edited line. 
Attempted to access a device 
that is not hooked up to com- 
puter. Check connections if this 
error occurs and you have 
device attached. 
An attempt to divide number 
or variable by zero. Usually 
occurs in complex program 
where the value of divisor 



Usually caused by including 
comma into variable prompted 
by INPUT statement. 
The file you are trying to load 
from tape or disk was not there. 
Usually caused by keying in 
wrong name. 

Attempted to access a file that 
has not been OPENed using 
CLOSE, PRINT# or some 
other file command. 
You issued an OPEN command 
to a file ahreatfy opened. 
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FORMULA TOO COMPLEX 

ILLEGAL DIRECT 

LOAD ERROR 

NEXT WITHOUT FOR 

NOT INPUT FILE 

NOT OUTPUT FILE 
OUT OF DATA 



OUT OF MEMORY 



OVERFLOW 
REDIM'D ARRAY 



The algorithm or string 
expression is too complex for 
single line. Break it up into 
multiple statements and lines. 
Attempted to use a command 
from Immediate Mode that 
must be used in Program Mode. 
Something is Avrong with the 
program you attempted to laod 
from tape. 

You put in a NEXT statement 
without corresponding FOR 
statement. 

You tried to use INPUT# or 
GET# from file set up for out- 
put only. 

You tried to use PRINT# ft^m 
file set up for input only. 
Your program tried to READ 
a DATA statment after you ran 
out of data. Sometimes all the 
program needs is a RESTORE 
statement since the program 
branched back to a line that 
ahready read in DATA. 
This happens either when you 
fill up RAM or when you have 
too many FOR/NEXT or 
GOSUB/RETURN 
statements. 

A number exceeding 
1.70141884E+38 has been 
reached. 

This usually occurs when your 
program branches back to the 
line where array was DIMen- 
sioned. An array can only be 
DIMensioned once without a 
CLR statement. 
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REDO FROM START 



RETURN WITHOUT GOSUB 



STRING TOO LONG 
7SYNTAX ERROR 
TYPE MISMATCH 



UNDEF'D FUNCTION 
UNDEF'D STATEMENT 

VERIFY 



Actually, this means "re-enter." 
It is caused when you enter 
string when numeric variable 
is expected in INPUT 
statement. 

This error is caused when the 
program passes to a subrou- 
tine and hits a RETURN. It is 
typically caused because you 
forgot to place an END state- 
ment before the subroutine 
accessed with GOSUB. Of 
course it could be caused by 
forgetting to put in a GOSUB 
while having a RETURN in the 
program. 

Your string is greats than 255 
characters. 

You entered something your 
VIC doesn't understand. 
Attempted to define a string 
with a number of vice versa. 
This will not occur with string 
variables when using INPUT 
statements. 

You forgot to define your DEF 
FN statement before using FN. 
This is usually caused by delet- 
ing a line number your pro- 
gram branches to. 
Tape or disk program does not 
match up with program in 
memory. 
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^ APPENDIX B 

r^ VIC-20 COMMAND EXAMPLES 

This glossary is arranged in alphdbeticcU. order. The examples are 
_ set up to show you how to use the commands and thdr proper 

syntax. In some cases when a command has different contexts of 
^ usage, more than a single example will be used. Some examples 

are given in the Immediate mode and some in the Program mode 
^ <those with line number8> and some with both. For clarification, 

results are given to show what a particular configuration would 
^ create in some examples. Some commands of specialized use that 

were not covered in the text have been included here for a more 

complete glossary. 

^ ABS( ) Gives the absolute value of a number or variable. 

PRINT AB8(-123.45) 
^ <RESULT> 123.45 

^ AND Logic operator used in IF/THEN statement. 

140 IF A* < > "Y" AND A* < > "N" THEN 
~ GOTO 100 

ASC( ) Returns ASCII value of first character in string. 

PRINT ASC <"M") or A$ - "VIC-Z0" : PRINT 
^ ASC(A«) 

ATN( ) Returns arctangent of number or variable. 
PRINT ATN (123) 
<RESULT> 1 . 56266643 

O CHR$( ) Returns the character with a given decimal value. 
PRINT CHR$(65) 
<RESULT> A 

CLOSE Closes channel to device or file. 
^ 210 CL08E7 : REM 7 IS FILE NUMBER OF 

DE<^ICE OR FILE BEING CLOSED. 
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CLR All variables are reset to zero. ^ 
120 CLR 

\J 

CMD Sends output to an OPENed device or file specified by file 

number. ^ 
□PEN7»a 

CMD7 ^ 
LIST 

CONT Continue program after a STOP or END statement in 
program 

CONT ^ 

COS( ) Returns to cosine of variable or number. 
PRINT C0S(i23) 

<RESULTS> - . 887958907 ^ 

DATA Strings or numbers to be read with READ statement. ^ 
1000 DATA 2, 345* HELLO* "WALK" 

\J 

DEFFN( ) Defines a substitute ftinction for real variable. 

40 DEF FNK(X)=X»X ^ 
50 PRINT FN K(a) 

(Results = 16 when RUN) ^ 



J)lS/l Allocates maximum range of array. 
130 DIM A$ (100) 



FOR Sets up beginning of FOR/NEXT loop and top limit of 
loop. 

40 FOR I = 1 TO 100 

FRE( ) Returns available memory. 
PRINT FRE(0) 
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END Terminates running of program. ^ 
200 END 

EXP( ) Returns 6 = 2.718289 to indicated power. 

PRINT EXP (5) ^ 
<RESULTS> 7.B947852BE+23 

o 



GET Halts execution until single entry received from k^board. 
30 GET A» : IF A$ = " " THEN 30 

GET# Inputs one character from a previously OPENed device 
or file. 

GET«i2» R$(I) 



GOSUB Branches to subroutine at given line number. 
100 GOSUB 200 

GOTO (or GO TO) Branches to given line number. 
100 GOTO 200 

IF/THEN Sets up conditional logic for execution. 
60 IF A$ = "0" THEN END 

INPUT Halts program execution until string or numbers entered 
and RETURN key is pressed. May enter message within INPUT 
statement. 

90 INPUT "ENTER MORD-> "i M$(I) 

100 INPUT "ENTER NUMBER -> A 

110 INPUT "ENTER INTEGER NUMBER -> "i 

NX 

120 PRINT "HIT 'RETURN' TO CONTINUE "I 
130 INPUT R$ 

INPUT# Takes data from a previously OPENed file or device. 
200 INPUT«1 f R«(I) 

INT( ) Returns the integer value of real variable or number. 
PRINT INT (123.45) 
<RESULT> 123 

LEFT$( , ) Returns specified number of characters from a 
given string beginning with character at Uar left. 

10 A$ - "GOODBYE" 

20 PRINT LEFT« (A»>4) 

(Results » GOOD) 
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LEN Returns the length in terms of number of characters of a ^ 
specified string. 

A$ = "COMPUTER AWAY" <J 
PRINT LEN(A$) 
<RESULTS> 12 



LIST Lists program currently in memory. 
LIST 



NEXT Sets the top of the loop begun with FOR statement. 
10 FOR I = 1 TO 100 
20 PRINT "THIS" 
30 NEXT I 
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LOAD Loads program from specified device. 

LOAD " $ " » 8 (Loads directory from disk) 

LOAD "MYPROGRAM" ♦! or LOAD "MYPRO- ^ 

GRAM (Loads program from tape.) 

LOG( ) Returns logarithm of specified number or variable. 

PRINT LOG (123) O 
<RETURNS> a . 8 1 2 1 B43S 

or ^ 
G s 123 : PRINT LOG (G) 

u 

MID$( , , ) Returns a portion of a string beginning with 

the nth number from the left to the length of the second number. ^ 

10 A« "MONDERFUL" 

20 PRINT MID«(A»»4»3) 



(Results = DER) ^ 

NEW Clears program in memory. 
NEM 

NEW (DISK) Formats diskette, ERASING any programs on 

disk. Requires an OPENed channel to disk. "N" may be substi- O 

tuted for "NEW". 

OPEN 15.8»15 

PRINT«15f "NEW0: MYDISK»22" 

u 

NOT Logic negation in IF/THEN statement. ^ 
60 IF A NOT B THEN GOTO 100 
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ON Sets up computed GOTO and GOSUB. 
^ 190 ON A GOSUB 1000 »2000 »3000 

^ OPEN Opens channel to device or file. 

' 500 OPEN1»1»1 "NAME LIST" (Opens tape file 

^ "NAME LIST") 

QPEN7 »4 (Opens channel to printer) 

OPENlSfSflSf "UI-" (Opens diannel to printer and sets 

correct speed for VIC-20 on VIC-1541 disk drive.) 

n 

OR Logic OR in IF/THEN statement. 
O 130 IF A=10 OR B = 20 THEN GOTO 1S0 

1^ PEEK Returns memory contents of given decimal location. 
170 PRINT PEEK (768) 
180 IF PEEK(7B8) = 5 THEN GOTO 200 

^ POKE Inserts given value in specified memory location. 
^ POKE 768 » 10 (Sets memory location 768 to decimal 

value 10). 

^ POS( ) Gives the current horizontal position of the cursor. 
r) 18 PRINT "THIS LINE"?: PRINT POS(0) 

<RESULTS> THIS LINE S 

n 

PRINT Outputs string, number or variable to screen or printer, 
n (Can substitute "?" for PRINT.) 

PRINT i!2;3; "GO" 5 F*; a; H% 

n 

PRINT# Sends output to specified OPENed device or file. (The 
question mark (?) cannot be substituted when using PRINT#.) 
250 PRINT « l.NA* (I) 
or 

0PEN7»4 

PRINT«7 "HELLO MIC-20" 
^ <RESULTS> Prints message HELLO VIC-20 to printer. 



n 
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^ READ Enters DATA contents into variable. 

10 READ A : READ B« 
O 20 DATA 5» "BATS" 

n 
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REM Non-executable command. Allows remarks in program |/ 
lines. 

10 DIM A$(122) : REM DIMENSIONS STRING 
ARRAY "A$" TO 122 

RESTORE Resets position of READ to first DATA statement. 
10 FOR I = 1 TO 5 : READ A$(I) : NEXT 
20 RESTORE 

RETURN Returns program to next line after GOSUB command. 

500 RETURN ^ 



RIGHI^ ( , ) Returns the rightmost n characters of given ^ 
string. 

10 A$= "DATAMOST" : PRINT RIGHT$(A$»a) 
(Results = MOST ) 



RND( ) Generates a random nimiber less than 1 and greater 
than or equal to 9. 

PRINT RND(5) 

INT (RND (1) * (N) + 1) - Generates whole 
random numbers from 1 to N, with N being the upper ^ 
limit of desired numbers. 

U 

RUN Executes program in memory. 

RUN ^ 

SAVE Records program on tape or disk. ^ 

SAVE "GRAPH PLOT" <tape> , 

SAVE "GRAPH PLOT" »1»1 <tape with end of tape ^ 

marker> tj 
SAVE "GRAPH PLOT" »8 <disk> 

SIN( ) Returns the sine of variable or number. 
PRINT SIN(123) 
<RESULTS = -.45990343 1> 

SPC( ) Prints specified number of spaces. 

PRINT SPC(29); "HERE" '<J 

SQR( ) Returns the squareroot of variable ornumber. ^ 
PRINT S0R(64) 

260 ^ 
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O STEP Used in FOR/NEXT loop to indicate loop increments and 
direction ("-" for negative increment). 

10 FDR I = 1 TO 50 STEP 2 
20 FOR J = B8 TO 44 STEP -1 

STOP Halts execution and prints line number where break occurs. 
(CONT command will re-start program at next instruction after 
^ STOP command.) 
' 100 STOP 

STR$( ) Converts number/variable into string variable. 

20 T= 123 : T*s STR$(T) : TT*= "*" + 
T* + ".00" 

n 

SYS. Calls and executes a machine language subroutine firom 
O decimal addresses between and 65535. 

SYS 58632 Clears screen and homes cursor 
n 10 FOR I = 1 TO 800: PRINT "X" : NEXT 

20 FOR I = 1 TO 20 : SYS 53B26 : NEXT 
<RESULTS> Prints 800 "X's" on the screen and then 
scrolls (SYS 59626) 20 times. 
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^ TAB( ) Sets horizontal tab from within a PRINT statement. 
PRINT TAB(20) 5"HERE" 

n 

TAN( ) Provides the tangent of number or variable. 
40 T = 34 s y = 55 
50 R = T + V : PRINT TAN(R) 

n 

TO Sets range separator in FOR/NEXT loop. 
O 40 FOR K = 10 TO 120 

VAL( ) Used to convert string to numeric value. 
_ 30 H* = "123" : PRINT VAL(H«) 

n 
n 
n 
n 
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INDEX 



animation 159, 160, 165 
AND/OR/NOT 88 
arrays 97 

multi-dimensional 100-103 

variable 97 
arrow key 33 
ASCII code 131 
auto repeat keys 143 

B 

background color 161 
backward steps 77, 78 
BASIC 37 

binary arithmetic 168-170 
bit graphics 168-175 
booting disks 24 
branching 82 
bugs & bombs 67 
business programs 233 



cartridge programs 29 
CHR$ 132, 202 
clear screen 37 
CLOSE 179, 201 
CLE 194 

CLR/HOME 32, 39 
CMD 199 
colon 40, 65 
color 

background 161 

graphics 153 

screen 161 
comma 65 
compilers 224, 225 
computed GOSUBs 92 



COMMODORE key 31, ; 
concatenation 118, 119 
counters (loop) 79 
CRSR keys 32 
CTRL 31 
cursor 23 



data base programs 232 

data entry 121 

data files 177,178 
storing 182-184 
updating 184, 185 

DATA strings 71 

deferred (program) mode i 

deleting 47, 50 

DIM 99 

disk drive hook-up 18 
DOS 26 



editing 47, 48, 51 
editor 48 
END 39,68 



false 88, 93 
FOR/NEXT 73, 96 
formatting 

disks 25 

strings 63. 108 

text 65, 105 
forward steps 77, 78 
function 33, 227 
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GET 70 
GET* 188, 189 
GOSUB/RETURN 90, 91 
GOTO 82 
graphics 

bit 168-175 

printing 210, 211 

repeat 215 

screen 134, 149, 150 
graphics packages 235 

H 

hardcopy 199 
hardware IS, 238 
hexadecimal 138 
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IF/THEN 82 
Immediate mode 38 
initialize disk 25, 26 
INPUT 67, 68 
INPUT# 81 

INPUT/OUTPUT 67, 68, 105 
inserting 61 
integer varaible 61 



keyboard 30 
new uses for old keys 34 
special keys: 
arrow 33 

CLR/HOME 32, 39 
COMMODORE key 31 
CRSR32 
CTRL 31 
function 33, 227 
graphics 33 
INST/DEl 33, 49 
Pi 33 



RESTORE 32 
RETURN 33 
RUN/STOP 32 



languages 221 

Assembly 221, 222 

BASIC 37,221 

FORTH 223 

PILOT 224 
LEFT$ 111 
LEN 109, 110 
line 41 
LIST 41-42 

listing programs 41, 202 
LOAD 26-29 
loops 71 

counters 79 

nested 75 

M 

magazines 219 
math operations 53 
matrix 162, 211 

memory locations 136, 140, 163, 
164 
MID$ 111 
modem 22 
monitor 18 

hook-up 18 

types of 19 

N 

names of variables 59 
nested loops 75 
NEW 37 

numeric variables 68, 70 
changing to string 
variables 116, 117 
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OPEN 179, 180, 188, 199 
organizing output 124-127 
OUTPUT 61 



parentheses 54, 55 
partial strings 111, 112 
PEEK 131, 136 
pixels 168 
POKE 131, 136, 140 
precedence 54, 55 
PRINT 38, 66 
PRINT* 179-181, 200 
printers 20 

connecting 21 

purchase of 198 

types of: 
dot matrix 20 
letter quality 20 
thermal 21 
printing graphics 210, 211 
Program (deferred) mode 38 



question mark 40 
R 

RAM 16 

READ/DATA 71-73 
READ (files) 188 
real variables 61 
RECORD/PLAY 28 
relationals 85, 96 
REM 40 

repeat (graphics) 215 
RESTORE 32 
retrieving programs 44 
RETURN 24, 90, 91 
RIGHT! Ill 



ROM 16 
RUN 26-29 



SAVE 42-44 

to disk 43 

to tape 44 
screen border 161 
screen graphics 149, 150 
scroll control 127 
sequential files 187 
semi-colon 65 
short cuts 226 
software 15 
sort routines 225 
sound 145-148 
ST (variable) 181 
steps 77, 78 

backward 77, 78 

forward 77, 78 
strings 62, 96 

arrays 97 

changing to numeric 
variables 116 

DATA 71 

formatting 108 

LEN 109, 110 

partial 111, 112 

sort 225 

unraveling 108 

variable 62 
subroutines 90 
SYS 144, 145 



tape recorder hook-up 17 
true 88, 93 
TV 18 

hook-up 18 

types of 19 
types of variables 61 
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upper and lower case 51, 133, 134 
user groups 217 
utilities 228 

V O 

variables 57 
arrays 97 

integer 61 *s_x^ 

names of 59 

numeric 58, 70 

real 61 

string 62 

types of 61 

VIC-20 user groups 217 ^ 

w O 

WAIT 143 O 
word processors 229 

WRITE 188 ^ 

z <u 

zero (false) 88 O 

O 
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VOU KNOW YOUn NEW COMMODORE VIC-20 
COMPUTER DOES MORE THAN PLAY GAMES. 
By T . HO\lV AR£ YOU GOING TO flE AUZE THE 
GREAT PQTENTIAl OF THIS MAnVELDUS 
MACHIIVE? 

THIS BOOK WILL TtACH YDLl TO (iRaCRAIVI YOUR 
GQMPUTER 

Written WillMm S. S*^4tni, THE ELEMENTAflY VIC-» Ia Nh» 
taHint»ffMnrflv, Ehiw^ul, iifVfQ'^g t«4ElMF«t yeu^liidl— |«iittf 
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Ing tfin Iftm point tD paint, tliii bmak will) half] fau bo un«l»f ttiivd iiihI 
prsfnmtftfl CDMMflDOni VIC-ZD. Just open iLupta iiiY^igii pnd 
rf 1^ » ptriqrtpll «r IMS □ Ae» ^iiu da, yau'ra surn Eja ag m ttiii bmifa 
ii HfintAikic initfriiBd>v ivwf iiy 

Sbep^lry'itip chipftan fnu tltr»ugrh th« pfwtHflf iHOkjnf up 
EtiA pif trr, h»ilinf mni Bivi'ng pfiigrsmiu crBR^ing gri|thlC4. TMils 
IMi ifl ki^ftl ai lUndf utilitisE. EvBrythm^ ii madn iimplB u bf thq 
tim« vgtTr* MrtllhfldtVeti^i iHWrlUllfj Mi uiing prof nmi! Artd rvara rf 

vqi/rttkMiijv ■pragrimnting, chit bHk tin TMsaF liBlplal rnloimiB- 
tian ind will iiitiBF\i tbi tntiri ^•nv'llv'i ditir* u [urtieiMti it\ ilM 
fnmpuEflr revokElpti. 

PilfalltliEd bj □ArAMDffT, THE ELEMEIUTAHV U^C-EQ i>anertiiEr ia 
lh4 IH|»ilf *uee:«iaral EI«niiinti<Y ^hibb. AIbg BUB4lBtil«: 

Thi IlimiiTUii tnpli Ihll TlH EliPMSITY Bbpm*W1 ** 
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